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Los listados incluidos en el cuerpo principal del texto se han diseñado para el 


ordenador Spectrum. 
En los apéndices del libro encontrarás listados específicos para las siguientes 


máquinas: 


— MSX 

— Amstrad 

— Commodore 64 
— Apple II 


Introducción del autor 


Este libro os dará a ti y a tu ordenador una nueva capacidad. La capacidad 
de imitar la realidad de una forma bastante aproximada. Desde microbios que 
luchan por su supervivencia en un mundo cerrado, hasta un programa que te 
traslada a la cabina de mando de un avión, hay un gran abanico de programas 
que te permitirán experimentar esta capacidad en acción. 

Hay algo más que programas en este libro. Descubrirás qué fácil es analizar 
las situaciones de la vida real para crear tus propias simulaciones por orde- 
nador. 

Ahora tienes este poder. Usalo. 


Tim HARTNELL 


Tim Hartnell es uno de los autores con más ventas en el mundo. Sus 


trabajos recientes incluyen: 


El libro gigante de los juegos para ordenador. 

El libro gigante de los juegos para Dragón. 

El libro gigante de los juegos para ZX Spectrum. 
Inteligencia Artificial. 

El superlibro de los juegos para ordenador. 
Sistemas expertos. 


Todos estos libros han sido publicados por la editorial Anaya Multimedia. 
Es editor fundador de la revista ZX Computing y escribe periódicamente 


una columa («Response Frame») en la revista Your Computer. 
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Ejecución de los programas 


Todos los programas de este libro se han escrito originalmente en un 
Spectrum. Los listados se obtuvieron a partir de esta máquina y fueron proba- 
dos en ella. Todos los programas se han escrito deliberadamente en BASIC 
estándar y, con alguna excepción, se pueden ejecutar en cualquier ordenador 
con BASIC, haciendo unos pocos cambios. La excepción es el programa SIMU- 
LACION DE UN ROBOT, que requiere el acceso a los gráficos de alta 
resolución y la utilización de órdenes como PSET y POINT. Posiblemente necesi- 
tes consultar el manual de tu sistema para encontrar la equivalencia con las 
órdenes de tu ordenador. 

En los apéndices encontrarás las versiones de algunos listados para MSX, 
Amstrad, Commodore 64 y Apple II. 
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El poder de las 
simulaciones 


Las simulaciones te dan poder. El poder de practicar casi cualquier activi- 
dad que puedas imaginar. Dirigir una empresa multimillonaria, volar a la Luna, 
conducir un coche de carreras, ser el presidente de un país... Todas estas 
experiencias pueden ser tuyas a través de las simulaciones por ordenador. 

En este libro, encontrarás programas que te permitirán tomar parte en 
todos estos escenarios, e incluso en más. De igual manera, poco a poco te 
introducirás en el arte de crear simulaciones por ordenador, de forma que 
después de que te hayas divertido con los programas de este libro, puedas 
escribir tus propios juegos. El estudio de los listados de este libro, la observa- 
ción de la forma en que actúan las variables y el ver cómo se usan fórmulas 
matemáticas para simular situaciones reales, te dará un número de técnicas 
sencillas para usar en tus propias simulaciones. 

Las simulaciones por ordenador no son simplemente juegos muy elabora- 
dos. Las simulaciones han resultado muy aceptables en muchas situaciones 
donde la realidad es demasiado cara, demasiado peligrosa o demasiado comple- 
ja para permitir que el ser humano empiece a aprender a controlarla. Muchas 
de las horas de vuelo durante el entrenamiento de un piloto se llevan a cabo en 
simuladores de vuelo muy elaborados —controlados, desde luego, por ordena- 
dores— en lugar de en el aire. 

Los operadores de plantas energéticas nucleares y convencionales de todo el 
mundo se entrenan con simuladores, donde pueden adquirir los conocimientos 
necesarios sin producir las catástrofes reales que se derivarían de un error. Un 
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ejemplo de simulaciones controladas por ordenador en este área se puede ver en 
Australia, donde una compañía generadora de electricidad se ha gastado medio 
millón de dólares en un simulador para entrenar a sus operarios. El simulador, 
desarrollado y comercializado por una compañía australiana llamada Control 
Simulation Technology, permite crear una serie de situaciones de emergencia, de 
forma que se aprenda cómo hacerles frente. Este tipo de entrenamientos sería 
imposible sin el uso del simulador. 

Otra simulación por ordenador, que tal vez puede ser un poco mal vista, 
usa los datos de unos pocos tests para simular los resultados de una porción 
significativa de la población, por ejemplo, para comprobar la efectividad de la 
publicidad estática o televisiva. El simulador, desarrollado por el psicólogo 
Marcus Tomlian, está llamado a ser “el más sofisticado sistema de precisión 
para calibrar las reacciones del consumidor ante la publicidad”. El dispositivo, 
llamado Mind Monitor, está formado por una serie de sensores para tomar 
lecturas del cerebro y el corazón de un pequeño grupo de personas. Las lecturas 
de estos sensores se introducen en el simulador, que analiza las ondas del 
cerebro y las señales cardiovasculares, y de éstas extrapola la posible reacción 
de la población en general. El simulador funciona a la vez que se enseña un 
anuncio al grupo y mide las reacciones segundo a segundo. 

El señor Tomlian dice que el Mind Monitor puede ser usado para encontrar 
los puntos débiles de una campaña publicitaria. General Electric se considera 
actualmente en cabeza en el desarrollo de simulaciones por ordenador que 
puedan examinar la atención que presta el público a la publicidad; también 
Young and Rubicam, una de las mayores agencias de radio del mundo, está 
investigando en este campo. 

Si quieres repetir el proceso químico que se produce en un reactor nuclear, 
medir las reacciones de consumidores potenciales a la publicidad o imitar los 
sistemas de control de una nave espacial, puedes usar una simulación por 
ordenador. Con una simulación, las acciones y reacciones de un sistema com- 
plejo se pueden representar gráficamente con bastante detalle. A menudo, la 
simulación se tiene que usar cuando la situación real sea difícil, peligrosa o 
simplemente imposible. Por ejemplo, un piloto entrenando en un simulador de 
vuelo puede intentar aterrizar en un huracán con muy poco combustible, o 
un operador de una central nuclear puede enfrentarse con la posibilidad de un 
escape radiactivo. 


Limitaciones 


Una simulación por ordenador no debe ser nunca confundida con el sistema 
al que está simulando. Todas las simulaciones son, en mayor o menor grado, 
simplificaciones del sistema al que representan. Las simulaciones de baja cali- 
dad, como los programas de este libro y las simulaciones que probablemente 
harás en los próximos meses, hacen a menudo simplificaciones drásticas. Á pesar 
de esto, pueden ser sorprendentemente efectivas, e intentar aterrizar usando 
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nuestro programa simulador de vuelo puede ser casi tan excitante como en la 
realidad. 

Verás que hay tanto arte como ciencia en la creación de simulaciones 
efectivas. La ciencia se ocupa de encontrar las fórmulas que relacionan los 
elementos del sistema que estás intentando simular. El arte consiste en presentar 
estas fórmulas de forma que se parezca lo más posible a la realidad. Esto 
significa que el resultado debe ser realista y de forma que se pueda comprender 
fácilmente. En muchas simulaciones, la velocidad con la que el programa 
responde a la entrada del usuario es muy importante. Si la simulación está 
ocurriendo en “tiempo real” (es decir, un segundo que pase entre las acciones de 
la simulación equivale a un segundo en la vida real), es importante que la 
simulación esté escrita de tal forma que la correspondencia entre los dos 
tiempos sea lo más exacta posible. 

Las simulaciones se pueden dividir en dos grupos: aquellos en los que los da- 
tos vienen en paquetes discontinuos o separados, y aquellos en los que los 
datos fluyen en un cierto orden. Los sistemas con “colas”, donde los elementos 
que necesitan un servicio (como los clientes de un banco) esperan hasta que el 
servicio esté disponible, son los tipos predominantes de situaciones discontinuas 
que a menudo son examinadas usando simulaciones. En el segundo tipo de 
simulaciones, donde los valores de los datos fluyen en un cierto orden, los 
valores (como el calor interior de un reactor nuclear) están cambiando cons- 
tantemente respecto al tiempo. 

Es importante determinar, antes de empezar a programar, cuál es el tipo de 
datos predominante en el sistema real que vas a programar. Cualquier situación 
donde los elementos se sumen a una cola en el momento A y se retiren del otro 
extremo en el momento B, es un candidato para una simulación discreta. Hay 
muchas situaciones de este tipo en la vida real; por ejemplo, algo tan simple 
como esperar en la cola de la caja de un supermercado. Las colas discretas 
existen en situaciones tan dispares como un conjunto de huevos en una vieja 
granja, las víctimas de un accidente en carretera esperando las ambulancias, y 
aviones esperando por una pista de aterrizaje. 

En este libro, tenemos un simulador de un aterrizaje espacial, en el cual 
debes intentar aterrizar una nave espacial en la Luna. Este programa espe- 
ra la introducción de un dato (un número entre O y 9, representando el 
empuje). 

Si el programa no espera a que se pulse la tecla, sino que continúa dentro 
de su ciclo una y otra vez, examinando el teclado y haciendo los cambios si se 
detecta una tecla válida, la simulación será claramente continua. Añade un 
control similar de tiempo real a nuestro simulador de vuelo y tendrás otro 
ejemplo de una simulación no discreta. 

La simulación “depredador/presa” del capítulo de ECUACIONES SIMUL- 
TANEAS, también es continua. No hay ningún momento, una vez que el 
programa empieza a recorrer el bucle mayor, en. que los valores de las dos 
variables principales (el “depredador” y la “presa”) no estén actualizados. 

En el capítulo 2 examinaremos los elementos básicos de una simulación y 
mostraremos cómo se puede dividir un problema de forma que se pueda crear 
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su simulación. Los capítulos siguientes tratan de varios tipos de simulaciones, 
luego podrás ver varias técnicas de simulación en acción y podrás estudiar los 
programas para ver cómo se han obtenido los resultados. Las lecciones que 
aprendas en estos capítulos te pueden ayudar a crear tus propias simulaciones. 

El capítulo 3 examina los bucles y la realimentación, elementos básicos de 
toda simulación, y los muestra en acción con el programa SIMULADOR DE 
UN ATERRIZAJE ESPACIAL. De aquí se pasa a las simulaciones Monte 
Carlo, donde se discuten los efectos de entradas aleatorias en un sistema. El 
capítulo 5 es la simulación “depredador/presa” mencionada anteriormente, don- 
de las ecuaciones simultáneas modelan la interacción de dos tipos de células 
luchando por el derecho a la supervivencia. 

El capítulo siguiente presenta la simulación por ordenador clásica de John 
Conway, Vida, donde los nacimientos y defunciones ocurren de una forma menos 
sangrienta que en la simulación “depredador/presa”. La versión inicial de este 
programa te permite codificar generaciones iniciales en forma de sentencias 
DATA, para que puedas estudiar los modelos evolutivos varias veces. También 
se te indican los cambios que tienes que hacer para permitir al ordenador que 
genere la colonia inicial de forma aleatoria. 

Los capitulos 7, 8 y 9 —que estudian las simulaciones de robot— son 
considerablemente más ambiciosos que los anteriores. En estos capítulos exami- 
naremos dos simulaciones a la vez. En primer lugar, imitaremos la acción de un in- 
térprete de un lenguaje de ordenador, que “entiende” órdenes tecleadas en un 
nuevo lenguaje LCR (“Lenguaje de Control de Robot”). En segundo lugar, los 
programas usan el LCR para mover un pequeño robot a lo largo de la pantalla, 
de forma similar a como el LOGO mueve su tortuga. Los programas que se dan 
aquí forman una sólida base para desarrollar un programa gráfico completo. 

La inteligencia artificial es una de las áreas de la informática en boga en 
estos momentos. El libro no estaría completo sin un programa (o dos) que 
enseñen cómo la simulación puede hacer parecer que un ordenador posee 
aparentemente inteligencia. El capítulo 10 te permite intentar la casi imposible 
tarea de ganar a tu ordenador en el juego CONECTA CUATRO, y explica cómo 
el programa decide su mejor movimiento. La técnica de selección de movimien- 
to se puede adaptar a muchos juegos de tablero. El capítulo 11 introduce un 
programa que reproduce una máquina española de 1890 que juega un final de 
ajedrez particular. La máquina de ajedrez de Quevedo fue probablemente el 
primer intento real de crear una máquina jugadora de ajedrez, y por eso es 
apropiado introducirla en este libro. 

Del ajedrez pasamos al terreno de la política, y se muestra cómo la econo- 
mía de Estados Unidos puede ser (un tanto precariamente) modelada con una 
simulación por ordenador. Tú eres el presidente, y debes intentar controlar la 
economía. Sin duda sentirás más simpatía por el ocupante real del palacio 
presidencial cuando veas cómo tus esfuerzos fracasan continuamente. 

Las manipulaciones de dinero son el corazón del capítulo 13, donde se 
simula un pequeño mercado en acción y se estudia la fluctuación de cinco 
compañías, intentando alcanzar un objetivo financiero que te has propuesto. 
CIUDAD DETROIT, en los capítulos 15 y 16, te enfrenta con una tarea difícil, 
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como es intentar llevar a una compañía fabricante de coches a obtener una 
economía saneada. Si fallas, te despiden del trabajo. Si lo consigues, eres 
recompensado. 

Del mundo de la política pasamos a actividades más recreativas. Gridiron, en 
los capítulos 17 y 18, te enfrenta con los Silicon Cowboys (o puedes usar el 
programa para moderar el enfrentamiento entre dos contendientes humanos). El 
siguiente programa te da la oportunidad de jugar un partido de tenis de tres 
sets contra el ordenador. De nuevo, si lo prefieres, puedes usar la simulación 
para jugar contra otro oponente. 

En los capítulos 21 y 22 estás en una carrera de coches y debes utilizar tu 
inteligencia para elegir un circuito del Grand Prix, en Inglaterra, Alemania, 
Italia o Mónaco. Los circuitos del programa están basados en los circuitos 
actuales en la vida real, aunque dudo que los conocimientos que adquieras aquí 
te puedan servir si conduces en un Grand Prix en la realidad. 

Por último, en los capítulos 23 y 24 tienes un simulador de vuelo completo. 
El programa simula un aeroplano al que es realmente difícil (pero no imposible) 
hacer volar. Verás que el controlar cuatro o cinco factores que están constante- 
mente variando ocupará toda tu concentración. Pero la satisfacción que sentirás 
cuando aterrices por primera vez compensa todos los esfuerzos. 

Como puedes ver, tenemos un campo fascinante delante de nosotros. Va- 
mos allá. 
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Componentes 
de una 
simulación 


Una simulación es un modelo de causa-efecto por ordenador. El suceso A 
está relacionado con el suceso B por la ecuación X. Las modificaciones de B 
afectan a C, por medio del factor Y, y así sucesivamente. Halla las relaciones 
(X e Y en las líneas anteriores) y tendrás los ingredientes de una simulación. 

Si enciendes un interruptor de luz, la electricidad fluirá a través del circuito 
y se encenderá la luz. En esta situación se ven claramente la causa y el efecto: 


CAUSA __————————> EFECTO ————————— EFECTO 
ENCENDER CORRIENTE FLUYE LUZ SE ENCIENDE 
Sería un ejercicio muy trivial el escribir un programa que simule el resultado 
de encender un interruptor. Sin embargo, esto no nos aparta del hecho de que, 


en esencia, todas las simulaciones que hagas serán una relación entre causa y 
efecto. 


Relaciones más complicadas 


Las relaciones, normalmente, no son tan simples como la anterior. 
Algunos efectos sólo tienen lugar cuando las variables alcanzan un “valor 
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disparados” (como los 200 grados de temperatura en la simulación del Grand 
Prix). Tus simulaciones deben tener un esquema como el siguiente: 


SUCESO X ME si A está presente lleva a 
si B está presente lleva a SUCESO Z 

Analiza las relaciones y exprésalas en forma de diagrama (tal vez sustituyen- 
do con fórmulas matemáticas las líneas como “si A está presente lleva a”) y 
estarás en el buen camino para escribir tus propios programas de simulación. 

El primer programa de simulación de este libro (en el capítulo siguiente) te 
pone en la situación de un piloto intentando aterrizar su nave espacial en la 
Luna. Las relaciones en este programa son bastante sencillas y producen unos 
efectos muy interesantes (y a veces impredecibles). 


Aquí está el esquema (y EMPUJE es lo que introduce el jugador cada vez 
que se pasa por el bucle): 


SUCESO Y 


FUEL = FUEL — EMPUJE 


— 


Si FUEL =0 


—— 
FLAG DE VARIABLE (FV) = EMPUJE - 2 
ALTURA = ALTURA + VELOCIDAD + FV/4 
VELOCIDAD = VELOCIDAD + FV 


SI ALTURA < 10 ' —_ —_  —> 
*————————“«———— VE A LEER NUEVO EMPUJE | | 


SI VELOCIDAD > -—9 Y VELOCIDAD < 5 ENTONCES ATERRIZAJE BUENO | 


SI NO + Y 
CRASH cil 


Aunque pueda parecer un poco complicado a primera vista, es muy simple. 
Puedes ver que el bucle del diagrama se parece mucho a un diagrama de flujo, 
y contiene algunas líneas que aparentemente se pueden programar directamente. 
Cuando observes el programa (concretamente las líneas 170 hasta 240) verás 
que algunas de las líneas anteriores aparecen casi sin modificar en el programa. 


Realimentación 


Los bucles contienen elementos que interaccionan entre sí. Y también efec- 
túan realimentaciones. El resultado de una serie de operaciones (en la simula- 
ción del aterrizaje lunar, los resultados son la altura, la velocidad y el combusti- 
ble restante) se realimenta para afectar a la siguiente entrada (el EMPUJE en 
este caso). La realimentación, en este caso, viene de fuera del sistema, del 
usuario. 

La realimentación se puede ver en muchos casos, como en el termostato de 
una habitación. Si la habitación se enfría, el calentador se enciende. Cuando 
la habitación se ha calentado, se desconecta. Al poco tiempo, la temperatura de la 
habitación baja y el ciclo comienza de nuevo. 
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La realimentación no siempre crea una salida oscilante. Imagínate que estoy 
enfadado contigo. Elevo el tono de mi voz. Tú también empiezas a gritar. Yo 
grito más, y me enfado más debido a que tú me estás gritando. Tú también te 
enfadas por mis gritos y, por tanto, elevas más aún la voz..., y así se crea un 
bucle que se va reforzando a sí mismo. Si el termostato se ajustara de forma 
que su objetivo fuera alcanzar la temperatura máxima, se produciría un reali- 
mentación autorreforzada similar a la anterior. 


Puntos de equilibrio 


Muchos bucles de realimentación tienen un punto de equilibrio, y una buena 
simulación debe, de hecho, invitar al usuario a descubrir este punto. Bien puede 
haber, por ejemplo, un empuje en nuestro aterrizaje lunar que permita a la nave 
aterrizar tranquilamente en la Luna. 


Bucles positivos y negativos 


Un bucle de realimentación negativa (cuando la habitación se calienta, el 
termostato desconecta el calentador) tiende a llevar al sistema a un punto de 
equilibrio. Un bucle de realimentación positiva (cuando la habitación se calien- 
ta, el calentador se enciende aún más) tiende a acelerar (o decelerar) rápidamen- 
te, alejando el sistema del punto de equilibrio. 

Es fácil entender cómo un bucle de realimentación puede ser el corazón de 
una simulación sencilla. Sin embargo, muchas situaciones de la vida real, 
cuando son analizadas, tienen que ser hechas con más de un bucle de realimen- 
tación. 

Por ejemplo, en la simulación “depredador/presa” (capítulo 5) tenemos dos 
formas de vida, cuya supervivencia está estrechamente unida. Si una especie (la 
presa) muere, la otra también morirá. Si hay pocos depredadores, el número de 
presas crece, lo que significa más comida, por lo que pueden nacer más depre- 
dadores que comerán más presas. La situación es dinámica, está cambiando 
constantemente y la simulación se realimenta a sí misma. Aquí está el diagrama 
del programa del capítulo 5: 


si existen suficientes—> 
CELDAS Y para 
alimentar a X, 


Y es comida 
reproducción —> | “— reproducción 
con relación |] | con relación 


al número número de número de al número 
: CELDAS Y CELDAS X 
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Una situación como ésta se puede estabilizar, o evolucionar de forma que X 
o Y lleguen a ser dominantes, con la otra celda reducida a un nivel no efectivo. 
Este tipo de simulaciones son fascinantes de ejecutar y sus resultados pueden 
ser difíciles de predecir, incluso cuando conozcas perfectamente las fórmulas que 
se usan. En una simulación como ésta, donde hay dos bucles de realimentación 
negativa en acción, X e Y oscilan alrededor de un punto de equilibrio. 

Tus propios programas de simulación pueden ser fáciles de escribir si consi- 
deras el comportamiento del sistema que quieres modelar, ves si hay realimenta- 
ción positiva o negativa y los efectos que éstas producirán en el sistema que 
tiende al punto de equilibrio. 

Algunas relaciones son más fáciles de ver que otras. Por ejemplo, este 
diagrama muestra las relaciones entre el trabajo necesario para sacar agua de 
un pozo, la sed producida por este trabajo y la cantidad de agua extraída: 


cantidad que cantidad cantidad que 
se bebe restante se saca 


AAA O A: 


Esta situación está muy clara, y es probablemente una de las situaciones 
de la vida real más sencillas que puedes intentar modelar con un sistema de 
simulación. Si se necesita un bucle doble para modelar algo tan simple como 
esto, te puedes imaginar que el problema que estudies necesitará dos o más 
bucles interactivos. 

Por ejemplo, el gasto y producción de oxígeno en la Tierra se puede indicar 
con el siguiente diagrama: 


más CO, luego los combustibles fósiles la población 
la biosfera se  -Ñ———- consumen el 20 por 100 de la -*——— se incrementa, 
calienta producción de O, aumenta la demanda 


la quema de áreas 
forestales reduce 
«la salida de O, e 
DISPONIBLE incrementa el CO, 


el efecto invernadero 


inhibe la producción OXIGENO 
de plancton ——______—> 


decrece el PR los desechos gaseosos de la 
de las algas en los ríos industria contaminan la atmósfera 


la polución eleva la temperatura 
del río, reduciendo el O, 
——————— del agua y asfixiando 
la vida marina 


los desechos industriales 
en los ríos consumen O, 
matando la vida marina 
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La acción en relación al tiempo 


Hacer un gráfico de la acción de un sistema hace más fácil entender tanto la 
dinámica del sistema como los bucles que están interactuando en él. 

Si dibujamos la población de las CELDAS X y las CELDAS Y, respecto al 
tiempo, a partir de las ejecuciones de la simulación “depredador/presa” del 
capitulo 5, obtendremos gráficos como éste: 


80 Hi 
70 7 ES 
60 4 ji 
Número 50 eS y 
de 40 ei y 
celdas 30 MX 
20 
20 E 
0 Y 
Tiempo 
80 
70 
60 
Número 50 
de 40 
celdas 30 
20 
10 
0 


Tiempo 


Estos gráficos muestran dramáticamente cómo las dos formas de vida están 
relacionadas. El punto de corte de las líneas nos sugiere dónde debe estar el 
punto de equilibrio del sistema. 

Por tanto, los diagramas nos ayudan a encontrar las relaciones del sistema 
que queremos simular, y un gráfico de los resultados de la simulación respecto 
al tiempo nos permite ver en acción la causa y el efecto del sistema. Estos 
gráficos nos pueden ayudar para ver la efectividad o no de nuestra simulación 
y nos sirven para ver qué es lo que está pasando en cada momento de la ejecu- 
ción de nuestra simulación. 

Ahora tienes suficiente información inicial para entender el proceso seguido 
en la creación y ejecución de los programas de simulación que forman el resto 
del libro. Una vez tengas los programas en funcionamiento, puede ser interesante 
hacer los diagramas para ver cómo se relacionan los elementos en estos progra- 
mas. De igual forma, la salida de algunas (pero no todas) simulaciones las 
puedes poner en forma de gráfico, con lo que profundizarás más en el funciona- 
miento del sistema que se está modelando. 
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Realimentación 
en acción 


En este capítulo tenemos nuestro primer programa de simulación, un pro- 
grama muy común —de una forma u otra— desde los primeros tiempos de los 
ordenadores comerciales. Se ha gastado mucho tiempo de ordenador intentando 
hacer aterrizar naves en la Luna. 

Al contrario de la simulación “depredador/presa”, que usa ecuaciones simul- 
táneas, las simulaciones como ésta usan un número de fórmulas en el interior 
de un bucle. Tras cada pasada por el bucle, el operador del sistema recibe 
información sobre el estado de unas variables que han modificado su valor. 
Según esta información, el operador decide qué dato introducir y a continua- 
ción espera a que el ordenador le informe sobre los resultados que ha produci- 
do esta decisión al pasar por el bucle. 

Aquí está el conjunto de operaciones matemáticas que se realizan en el bucle 
(donde AS es la entrada del jugador y significa empuje): 


1560 LET EMPUJE=VAL A$+. 1 
170 LET FUEL=FUEL—-EMPUJE 
180 LET FLAG=EMPUJE-—2 
190 LET EMPUJE=0 


200 LET ALTURA=ALTURA+VELOCIDAD 
+FLAG/4 
210 LET VELOCIDAD=VELOCIDAD+FLAG 
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El bucle tiene ciertas condiciones de salida (como cuando chocas, te quedas 
sin combustible, etc.) que detienen el ciclo y terminan la ejecución con un 
mensaje para el operador. Las lineas 220 y 240 del siguiente fragmento del 
programa comprueban si es necesario salir del bucle, mientras que la 230 inicia 
otra pasada: 


220 IF ALTURA<=10 THEN GO TO 2 
40 
230 IF ALTURA>10 THEN GO TO 12 


O 
240 IF VELOCIDAD>-9 AND VELOCID 
AD<S THEN GO TO 290 


Desde luego, tú no tienes que saber esto, ni tenerlo en cuenta cuando estés 
probando un programa como la SIMULACION DE UN ATERRIZAJE ES- 
PACIAL de este capítulo. Lo único que te importa es intentar hacer aterrizar la 
nave, y los mecanismos que siguen no son de tu incumbencia. 

La entrada del jugador se limita al empuje, como se dijo hace poco. Se 
indica un empuje elevado pulsando la tecla “9”, un empuje bajo con el “1” y un 
empuje nulo con el “0”. Los valores intermedios se obtienen tecleando otros 
números. No es necesario pulsar la tecla ENTER, ya que se usa INKEYS$ para 
leer el teclado. 

Veamos cuáles son los resultados de un piloto poco experimentado cuando 
intenta hacer aterrizar la nave con esta simulación: 


== FUEL VELOCIDAD ALTURA 
E 208.33  -11.42 497.03 
A, 208.23  -9.520001 507.99 
208.13  -7.62 517.04 
208.03  -5.72 524.2 
== 207.93  -3.82 529.45 
a 207.83  -1.92 532.8 
Si) 207.73 -.02 534.26 
207.63 1.88 533.81 
207.53 3.78 531.47 
s 207.43 5.68 527.22 
P) 207.33 7.58 521.07 
Ly) 
188.23 10.48 341.57 
179.13 3.38 332.87 
== 170.03  -3.72 331.28 
36 160.93  -10.82 336.78 
Y 151.83  -17.92 349.39 


151.73 16.02 366.84 ==>] 

151.63 164,12 382.39 1 

151.53  -12.22 396.05 —_— 

151.43 =8.48 407.8 

151.233  -53.42 ANT-Gá 

151.23 -6.52 425.61 Po) 
ly) 

150.03 16.28 372.86 

149.93 18.18 356.11 

149.83 20.08 337.47 A] 

149.73 21.98 316.92 A 

149.63 23.88 294.48 ¡a 

149.53 25.78 270.13 

149.43 27.68 243.88 

149.33 29.58 215.74 [] 

149.23 31.48 185.69 lu) 

149.13 33.38 153.75 

149.03 35.28 119.9 

148.93 37.18 84.15 A] 

148.83 39.08 46.51 Lo) 


LA LECTURA FINAL ERA: 

FUEL VELOCIDAD ALTURA 
148.73 40.98 

CRATER NUEVO DE 2.25 DE PROFUNDI 
DAD EN LA LUNA 

TU PUNTUACION ES -438 


Jo 


El resultado es muy diferente cuando un piloto experimentado toma los 
mandos: 


FUEL VELOCIDAD ALTURA P== 
210.71 4.02 496.05 E] 
210.61 5.92 491.57 Y) 
210.51 7:82 485.18 

210.41 9:72 476.89 ==> 
210.31 11.62 466.7 1] 
210.21 13.52 454.61 A 
210.11 15.42 440.62 

2tomol 17,38 424.73 == 
209.91 19.22 406.94 pS 
200.81 19,12 389.5 hs 


N 
e] 


"DR 191.71 5.02 379.16 
El 182.61 -2.08 375.92 


= 182.51 -0.18 377.53 
182.41 78 377.24 
182.31 3068 375.05 
[] 182.21 5.52 370.96 
lo) 182.11 7.42 364.97 
182.01 9.32 357.08 
150.91 20.22 126.75 
A 147.81 19.12 106.81 
lu) 144.71 18.02 87.97 
140.61 15.92 70.48 
134.51 11.82 55.59 
ES 126.41 5.72 45.3 
124.31 5.62 39.61 
¡A 122.21 5.52 34.02 
118014 3.42 29.03 
115.01 3.32 25.64 
[) 113,01 3.22 22.35 
lu) 111,81 3.12 19.16 
108.71 2.02 16<38 
107.61 2.92 14.08 
106.51 3.82 10.94 
a HAS ATERRIZADO FELIZMENTE ! 
ML) TU PUNTUACION ES 9067 
LA LECTURA FINAL ERA: 
7 FUEL VELOCIDAD ALTURA 
105.41 4.72 0) 
LL) 


Aquí está el listado para que emules a la NASA: 
Una vez domines el programa en su estado actual, cambia la línea 50 como 
sigue para crear una nueva dificultad: 


50 LET FUEL=100+INT (RND*40) 


S CLEAR 31999 


| l 

) | 
O; 10 REM SIMULACION DE UN ATERRI ¡ O 

ZAJE ESPACIAL 
o! 20 RANDOMIZE : 

. IN di O 

] ' 


40 REM VALORES INICIALES 
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O.  Q-0 


50 LET FUEL=200+I1INT (RNDx40) 
60 LET VELOCIDAD=INT (RND*20)-— 


70 LET ALTURA=500-INT (RND+*10) 

80 CLS 

90 PRINT " FUEL"5TAB (10)3" VE 
LOCIDAD";TAB (24);5" ALTURA" 

100 REM 3643636 36 36 4 36 36-316 36 3-36 3-36 HE JE-3E-3IE-3E-HE-IE 
110 REM CICLO PRINCIPAL 

120 GO SUB 430 

130 IF FUEL<=0 THEN LET FUEL=0 
:s LET EMPUJE=0: GO TO 170 

140 LET A$=INKEYS$ 

150 IF A$<"0" OR A$>"9" THEN 6 
O TO 140 

160 LET EMPUJE=VAL A$+. 1 

170 LET FUEL=FUEL—EMPUJE 

180 LET FLAG=EMPUJE-2 

190 LET EMPUJE=0 

200 LET ALTURA=ALTURA+VELOCIDAD 
+FLAG/4 

210 LET VELOCIDAD=VELOCIDAD+FLA 


220 IF ALTURA<=10 THEN GOD TO 2 
230 IF ALTURA>10 THEN GO TO 12 


240 IF VELOCIDAD>-9 AND VELOCID 
AD<S THEN GO TO 290 

250 GO SUB 410 

260 PRINT "HAS CHOCADO CON LA S 
UPERFICIE...” 

265 GO SUB 2000 

270 IF ALTURA>0 THEN LET ALTUR 
A=-ALTURA 

280 GO TO 320 

290 PRINT "HAS ATERRIZADO FELIZ 
MENTE !" 

295 GO SUB 1000 

300 CLS 2: PRINT "TU PUNTUACION 
ES "5 INT (-100*FUEL/ (VELOCIDAD-A 
LTURA) ) 

310 LET ALTURA=0 

320 GO SUB 410 

330 PRINT"LA LECTURA FINAL ERA: " 


O” - 0 O QU 


O 


O. 0 


O" O (Q 60 -O 1.0 $ 0: Y 
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340 PRINT " FUEL"5TAB (10)53" VE 
LOCIDAD"5TAB (24);5" ALTURA" 

350 GO SUB 430 

360 GO SUB 410 

370 IF ALTURA>=0 THEN STOP 

380 IF ALTURA<O THEN PRINT "CR 
ATER NUEVO DE "5 INT (ABS (100*(A 
LTURA+.2)/3))/10053" METROS DE P 
ROFUNDIDAD EN LA LUNA !” 

390 PRINT "TU PUNTUACION ES "51 
NT (100*FUEL / (VELOCIDAD-ALTURA) ) 
400 STOP 

ALO PRINT MÁ 


420 RETURN 
430 PRINT INT (100*FUEL)/100; 
440 PRINT TAB (10)5-INT (100*VE 
LOCIDAD) /100; 
450 IF ALTURA>=0 THEN PRINT TA 
B (24)5 INT _(100*ALTURA) /100 
460 IF ALTURA<O THEN PRINT 
470 RETURN 
1000 REM GANAR 
1010 FOR B=0 TO 10: FOR A=9 TO 7 
: PRINT PAPER A3AT 20,0; "ENHORA 
BUENA": BEEP .01,AM: NEXT Az NEXT 
B 
1020 RETURN 
2000 REM PERDER 
2010 FOR N=32000 TO 32016: READ 
A: POKE N,Az NEXT Nz DATA 14,255 
,6,255,120,211,254,16,251,13,32, 
246,62,7,211,254,201: FOR Z=0 TO 
10: RANDOMIZE USR 32000: NEXT Z 
2020 RETURN 
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Simulaciones 
de Monte Carlo 


El término “simulación de Monte Carlo” se aplica a aquellas simulaciones 
que muestran los resultados de factores aleatorios. En este tipo de programas 
los elementos aleatorios se utilizan para simular probabilidades dentro de un 
límite específico (como los resultados de lanzar un par de dados), de forma que 
se obtengan unos resultados más o menos aleatorios. En este capítulo verás una 
simulación de Monte Carlo completa en acción. 

Nuestro programa ha sido diseñado para simular el efecto del movimiento 
browniano de una partícula muy pequeña suspendida en un fluido. El movi- 
miento aleatorio de este tipo de partículas (de diámetro inferior a una milésima 
de milímetro) es debido al impacto de los átomos o moléculas del fluido sobre 
la partícula. El movimiento browniano se puede ver en el humo que se dispersa 
por el aire o en la tinta que se difunde en el agua. 

El nombre de movimiento browniano apareció cuando Robert Brown, un 
botánico escocés, observó (pero fue incapaz de explicar) el movimiento de una 
solución de granos de polen en agua al microscopio. 

La simulación tiene lugar en una cuadrícula de 10 por 10, con un único 
grano de polen que se indica con una “O”. Cuando ejecutas el programa, 
introduces la posición donde quieres que empiece el grano y la posición objeti- 
vo que quieres alcanzar. La simulación termina cuando el grano alcanza esta 
posición final. 

Aquí tienes cómo empieza: 


INTRODUCE LA COORDENADA INICIAL 
PRIMERA (MENOR DE 10) 

? 3 

INTRODUCE LA COORDENADA INICIAL 
SEGUNDA (MENOR DE 10) 

74 


JO 
A, LY) 


INTRODUCE LA COORDENADA FINAL 
PRIMERA (MENOR DE 10) 

76 

INTRODUCE LA COORDENADA FINAL 
SEGUNDA (MENOR DE 10) 

2 7 


L 


MOVIMIENTO 1 


Y a continuación tienes algunas de las pantallas que aparecen a medida que 
el grano realiza los movimientos brownianos: 


MOVIMIENTO S 


£ 


MOVIMIENTO 9 


3 
(em) 
< 
a. 
Z 
a] 
m 
Zz 
+ 
O 
.a 
.a 
[] 
LJ) 


E 
o, 
eje] 
- 
p 
[a] 
o 
[o 
Oo 
yo] 
¡eñ 
7] 
5 
p 
¡A 
o 
ES 
[e] 
N 
p 
o 
[e 
S. 
O 
(39 
< 
[o] 
< 
D 


Por fin, en el movimiento 
demostración termina: 


> > 


MOVIMIENTO 14 


FIN DE LA DEMOSTRACION 
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Aquí tienes el listado para que puedas estudiar esta simulación de Monte 
Carlo: 


REM DEMOSTRACION MONTE CARL 
GO SUB 370: REM INICIALIZAC 


REM 636363641630 3-16 36-16-10 IE 1 LE 1-3 IE IE 1E dE 
REM BUCLE PRINCIPAL 
GO SUB 100: REM IMPRESION 
IF P=EP AND Q=EQ THEN PRI 
PRINT "FIN DE LA DEMOSTRACI 
STOP 
GO SUB 230: REM GENERACION 
DE MOVIMIENTOS 

89 GO TO 50 

90 NEXT X 

100 REM SALIDA 

110 LET A$(P,Q)="0" 

120 LET M=M+1 

125 PAUSE 100 

130 CLS : PRINT : PRINT 
PRINT "MOVIMIENTO "5M: PRIN 


FOR X=i TO 10 
FOR Y=1 TO 10 
PRINT A$S(X,Y)35" "5 


NEXT Y O 
PRINT 
NEXT X 
RETURN O 
REM 6363636364616 dE IIA MIE IE DEE 4 IE IE IE IEEE 
REM GENERACION DE MOVIMIENT O 
240 LET AS(P,0)="." 
¡o 250 LET G=0 O 
260 LET T=INT (RND*4)+1 
270 GO TO 300+10+*T 
O 280 IF G=0 THEN GO TO 260 O 
290 IF G=1 AND RND*.S THEN GO 
TO 260 
O 300 RETURN O 


1 
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| 
l 
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] 
| 
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310 IF P>1 THEN LET P=P-1: LET 
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O O E O 0-4 50 20 7/0 ¿4 E 0-0 


O 


G=G+1: RETURN 

320 IF P<10 THEN LET P=P+1: LE 
T G=G+1: RETURN 

330 IF Q>1 THEN LET 0=0-1: LET 
G=G+1: RETURN 

340 IF O0<10 THEN LET QO=0+1: LE 
T G=G+1: RETURN 

350 RETURN 

360 REM GENERACION DE MOVIMIENT 


370 REM INICIALIZACION 

375 LET M=0 

380 CLS 

390 RANDOMIZE 

400 DIM A$(10,10) 

410 FOR X=1 TO 10 

420 FOR Y=1 TO 10 

430 LET A$(X,Y)="." 

440 NEXT Y 

450 NEXT X 

460 PRINT : PRINT 

470 PRINT "INTRODUCE LA COORDEN 
ADA INICIAL PRIMERA (MENOR DE 10 
y" 

480 INPUT P 

490 IF P<1 OR P>10 THEN GO TO 
480 

500 PRINT "INTRODUCE LA COODRDEN 
ADA INICIAL SEGUNDA (MENOR DE 10 
y” 

510 INPUT Q 

520 IF Q<1 OR Q>10 THEN GO TO 
510 

530 PRINT : PRINT 

540 PRINT "INTRODUCE LA COORDEN 
ADA FINAL PRIMERA (MENOR DE 10 
y” 

550 INPUT EP 

560 IF EP=P OR EP<1 OR EP>10 TH 
EN GO TO 550 

570 PRINT "INTRODUCE. LA COORDEN 
ADA FINAL SEGUNDA (MENOR DE 10 
y" 

580 INPUT EQ 

590 IF E0=Q OR EQO<1 OR EQ>10 TH 
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EN GO TO 580 

600 LET A$(P,Q)="0" 
610 LET AS(EP,EQ)="X" 
620 RETURN 
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Ecuaciones 
simultáneas 


Podemos crear simulaciones que hagan uso de ecuaciones simultáneas para 
mostrar los efectos de dos factores interrelacionados. Estas ecuaciones se usan a 
menudo en las simulaciones del tipo “depredador/presa”, como la que se estudia 
en este capítulo. 

Tenemos dos formas de células viviendo en un cultivo. Ambas células 
necesitan alimentarse y se van reproduciendo a medida que la simulación se 
ejecuta. Las células X necesitan comer células Y para sobrevivir. Si hay dema- 
siadas células X, matarán a todas las células Y, y, por tanto, morirán de 
hambre. Si no hay suficientes células X, las células Y se reproducirán demasiado 
y agotarán la comida del cultivo. 

Se te permite poner el número de células X e Y en cada ejecución de la 
simulación. Tienes que crear un balance de población que permita a la colonia 
de células sobrevivir el mayor tiempo posible. Aunque el “grado de agresividad” 
de las células X hacia las Y cambia en cada ejecución del programa (así que no 
existen dos números que siempre funcionen), no cambia en una misma ejecu- 
ción, así que puedes probar varias combinaciones para ver cómo se comporta. 

El programa te dice, en primer lugar, cuál es el factor de agresividad, que es 
el grado de agresividad de las células X hacia las células Y. A continuación te 
pide que introduzcas las poblaciones iniciales: 
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EL FACTOR DE AGRESIVIDAD ES .140 
8966 

INTRODUCE EL NUMERO DE CELDAS X 
INICIAL (MENOR DE 40) 

237 


TENEMOS 37 CELDAS X 


INTRODUCE EL NUMERO DE CELDAS Y 
INICIAL (MENOR DE 40) 
225 


L) 


Una vez hecho esto, el programa empieza a trabajar y te mantiene informa- 
do de lo que va ocurriendo: 


TIEMPO 

CELDAS X: 37 

CELDAS Y: 25 

TIEMPO TRANSCURRIDO: e 
CELDAS X: 35 

CELDAS Y: 17 

TIEMPO TRANSCURRIDO: 3 
CELDAS X: 46 

CELDAS Y: 9 

TIEMPO TRANSCURRIDO: 4 
CELDAS X: 77 

CELDAS Y: 2 

TIEMPO TRANSCURRIDO: S 
CELDAS X: 37 

CELDAS Y: 1 

LAS CELDAS HAN SOBREVIVIDO 
DURANTE S PERIODOS DE TIEMPO 
EL MAYOR TIEMPO DE SUPERVIVENCIA 
HASTA EL MOMENTO ES 5 


QUIERES PROBAR OTRA VEZ (S/N) ? 


RODOREDA 
uJ UJ LJ Lil LJ LU) 
a 
z 


a 


El programa también recuerda el mayor tiempo de vida conseguido. Tienes 
la posibilidad de hacer más pruebas para que puedas ver el efecto de diferentes 
poblaciones iniciales: 


EL FACTOR DE AGRESIVIDAD ES .140 
8966 

INTRODUCE EL NUMERO DE CELDAS X 
INICIAL (MENOR DE 40) 

225 


TENEMOS 25 CELDAS X 


INTRODUCE EL NUMERO DE CELDAS Y 
INICIAL (MENOR DE 40) 
237 


1) 


TIEMPO TRANSCURRIDO: 4 

CELDAS X: e 

CELDAS Y: 35 

TIEMPO TRANSCURRIDO: S 

CELDAS X: 1 

CELDAS Y: 36 

LAS CELDAS HAN SOBREVIVIDO 
DURANTE 5 PERIODOS DE TIEMPO 

EL MAYOR TIEMPO DE SUPERVIVENCIA 
HASTA EL MOMENTO ES 5 


QUIERES PROBAR OTRA VEZ (S/N) ? 


EL FACTOR DE AGRESIVIDAD ES .140 
8966 

INTRODUCE EL NUMERO DE CELDAS X 
INICIAL (MENOR DE 40) 

738 


E 
LN ES 


TENEMOS 38 CELDAS X 


INTRODUCE EL NUMERO DE CELDAS Y 
INICIAL (MENOR DE 40) 
738 


El 


ra) 
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TIEMPO TRANSCURRIDO: 2 
CELDAS X: 13 

CELDAS Y: 34 

TIEMPO TRANSCURRIDO: 3 
CELDAS X: 6 

CELDAS Y: 33 

TIEMPO TRANSCURRIDO: 4 
CELDAS X: 3 

CELDAS Y: 33 

TIEMPO TRANSCURRIDO: 5 
CELDAS X: 1 

CELDAS Y: 34 

LAS CELDAS HAN SOBREVIVIDO 
DURANTE S PERIODOS DE TIEMPO 
EL MAYOR TIEMPO DE SUPERVIVENCIA 
HASTA EL MOMENTO ES 5 


QUIERES PROBAR OTRA VEZ (S/N) ? 


EL FACTOR DE AGRESIVIDAD ES .140 
8966 

INTRODUCE EL NUMERO DE CELDAS X 
INICIAL (MENOR DE 40) 

2282 


TENEMOS 22 CELDAS X 


INTRODUCE EL NUMERO DE CELDAS Y 
INICIAL (MENOR DE 40) 
230 


TIEMPO TRANSCURRIDO: 3 
CELDAS X: 13 
CELDAS Y: 23 
TIEMPO TRANSCURRIDO: 4 
CELDAS X: 14 
CELDAS Y: el 


TIEMPO TRANSCURRIDO: S GAN 
CELDAS X: 15 0 


CELDAS Y: 18 OS, 
TIEMPO TRANSCURRIDO: 6 

CELDAS X: 19 PON 
CELDAS Y: 15 ¡CU 
TIEMPO TRANSCURRIDO: 7 

CELDAS X: 27 == 
CELDAS Y: 12 a 
A A e a lu) 


TIEMPO TRANSCURRIDO: 8 
CELDAS X: 41 


CELDAS Y: 7 P) 
NAAA AA ARA UL) 


TIEMPO TRANSCURRIDO: 9 
CELDAS X: 74 


CELDAS Y: 2 7 
TIEMPO TRANSCURRIDO: 10 —_—) 
CELDAS X: 32 

CELDAS Y: 1 


LAS CELDAS HAN SOBREVIVIDO GA 
DURANTE 10 PERIODOS DE TIEMPO ll) 
EL MAYOR TIEMPO DE SUPERVIVENCIA 

HASTA EL MOMENTO ES 10 ME 
QUIERES PROBAR OTRA VEZ (S/N) ? he! 


La parte más importante del programa son las ecuaciones que hacen el 
trabajo. Se encuentran en las líneas 330 y 340: 


330 LET CP=CP+((8*CP-CP*EP/3)*FA) 
340 LET EP=EP+ ((4*EP-EP+*CP)+*. 01) 


Modifica alguna parte de las fórmulas y verás qué efectos se producen en el 
desarrollo de la simulación. Probablemente quedarás sorprendido de los efectos 
tan grandes que producen los cambios más insignificantes. Aquí tienes el lis- 
tado: 


10 REM ECUACIONES SIMULTANEAS ¡ O 

20 CLS | 

O 30 RANDOMIZE 
| 40 LET HS=0 O 


Os. O 4 QA O" O 0 0 -0 


O 


Y, 


O 


50 LET FA=RND 
60 PRINT : PRINT "EL FACTOR DE 
AGRESIVIDAD ES "sFA 
70 GO SUB 550 
80 CLS 
90 PRINT : PRINT 
100 PRINT "INTRODUCE EL NUMERO 
DE CELDAS X INICIAL (MENOR DE 40 
y" 
110 INPUT CP: IF CP<1 OR CP>39 
THEN GO TO 110 
120 PRINT : PRINT 
130 PRINT "TENEMOS "3CP3" CELDA 
Ss xXx” 
140 PRINT : PRINT 
150 PRINT "INTRODUCE EL NUMERO 
DE CELDAS Y INICIAL (MENOR DE 40 
y" 
160 INPUT EP: IF EP<1i OR EP>39 
THEN GO TO 160 
170 CLS : PRINT : PRINT "ESPERA 
UN MOMENTO...” 
180 GO SUB 550: CLS 
190 LET DA=1 
200 IF CP>EP/FA THEN LET CP=EP 
/FA 
210 PRINT *—————=======mm=.m 
220 PRINT "TIEMPO TRANSCURRIDO: 
"sDA 
230 PRINT "CELDAS X:z "5INT (CP) 
240 PRINT "CELDAS Y:z "5INT (EP) 
250 REM 3343016362616 -36-36-16-H6-M6 AHHH AA IE EE 
260 REM BUCLE PRINCIPAL 
270 GO SUB 550 


300 PRINT "TIEMPO TRANSCURRIDO 
310 IF CP>EP/FA THEN LET CP=EP 
320 REM ECUACIONES. CAMBIA ALGO 


Y VERAS LO QUE OCURRE. 
330 LET CP=CP+((8*CP-CP+EP/3) +F 


LET EP=EP+ ( (4*+EP-EP*CP)*.01 


PRINT "CELDAS X: "5INT (CP) 
PRINT "CELDAS Y: "5INT (EP) 
IF EP<2 OR CP<2 THEN GO TO 


GO SUB 550 

GO TO 280 

REM I3636-26-261626 M6 36 III MIRIAM IIA 
410 IF DA>HS THEN LET HS=DA 
420 PRINT : PRINT 
430 PRINT "LAS CELDAS HAN SOBRE 
VIVIDO" 
440 PRINT "DURANTE "5DA5"” PERIO 
DOS DE TIEMPO" 
450 PRINT " 


460 PRINT "EL MAYOR TIEMPO DE S 


UPERVIVENCIAHASTA EL MOMENTO ES 
"sHS 

470 GO SUB 550 

480 PRINT " 


490 PRINT "QUIERES PROBAR OTRA 

VEZ (S/N) 2" 

500 LET AS$=INKEYS 

510 IF A$<>"S" AND A$<>"N" THEN 
GO TO 500 

520 IF A$="S" THEN CLS : GO TO 
60 

530 PRINT "0.K.": PRINT : PRINT 
2 STOP 

540 REM 3316-36 -3-36 3-36 36-36-36 16-36-36 36-16-36 36-36 36-16 36-16 36 
550 FOR J=1 TO 1000: NEXT J 

560 RETURN 
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El significado 
de la vida 


En el capítulo anterior vimos un programa que simulaba la acción de dos 
formas de vida que ocupaban un mismo medio. En esta simulación, el creci- 
miento y la muerte de las células estaba gobernado por ecuaciones simultáneas. 

En este capítulo veremos dos ejemplos de una de las simulaciones clásicas, la 
Vida, de John Conway. Esta simulación trata sobre el crecimiento y desarrollo 
de una colonia de células que viven en una malla. 

Desarrollado por Conway cuando estaba en el Gonville and Caius College, 
en Cambridge, Vida produce unos efectos sorprendentes, con una riqueza que 
no parecían poder producir las simples reglas bajo las cuales las células viven, 
se reproducen y mueren. Para mostrar esto, vamos a ver una colonia de células 
que empiezan formando un cuadrado. Esta colonia en particular, muere tras 
tres generaciones: 


GENERACION 1 7 
XXX XX XX XXX ——l 
Xx o X Xx o Xx 

XX XxX == 
A ae 
XXX XX XX XXX LL) 


GENERACION 2 


AS] 
[) XXX XXX 


XXX XX XX XXX 
XX X XX XX X XX 
> XXX XXX XXX XXX 
EA XX X XX XX X XX 
(— XXX XX XXX XX 
XXX XXX 
[ 
¡A GENERACION 3 
Xx Xx 
E EA di 
¡O Xx X X X 
x Xx X x 
E x x Xx x 
ll) Xx o X XX 
x x 


Otra colonia, que empieza su vida como una “X”, se desarrolla como sigue 
en todos los ejemplos, el programa imprime una imagen invertida a la derecha 
de la colonia inicial): 


a 


GENERACION 1 


X X X X 
X X 
X X X X 
A 
La 
n= GENERACION 2 
e XXX XXX 
Xx X Xx X 
XXX XXX 


GENERACION 3 


GENERACION 4 
X 
XXX 
XX XX 


XXX 
X 


GENERACION 5 


GENERACION 7 


XXX 


XXX 


XXX 


<> 
xx X> 


XXX 


5 


b 


) GENERACION 8 
A, 


xx 
x 


XXX XXX XXX XXX 


PATA X X 
ES ! | 
7) X X 


Si continuamos ejecutando esta simulación, cada conjunto horizontal de “X” 
se convertirá en vertical, y el conjunto vertical pasará a ser horizontal. Estos 
modelos que pasan de horizontal a vertical son una de las estructuras que salen 
normalmente en este tipo de programas. Este modelo en concreto se llama 
“luces de tráfico”. 


Las reglas 


Las reglas de Conway no son muy complicadas, pero producen los efectos 
maravillosos que ya has visto. Se asume que cada célula tiene ocho vecinos. Si 
una célula tiene dos o tres vecinos, sobrevive a la siguiente generación; si está 
sola muere por aislamiento. Si una célula tiene cuatro vecinos, en la siguiente 
generación muere por sobrepoblación. Si hay justo tres células vecinas en una 
celda vacía, en la siguiente generación nace una nueva célula en la casilla vacía. 

Estas reglas se aplican simultáneamente a lo largo de toda la red. Esto lo 
hacemos por medio de una segunda red que guarda los cambios que se van 
haciendo en la primera. Antes de la impresión se copia la segunda red en la 
primera. 

Aquí tienes el listado que produce estos efectos. Las órdenes DATA del final 
se pueden, desde luego, modificar para empezar con la colonia inicial que se 
desee: 


| I 

E : 10 REM SIMULACION DE VIDA DE 
CONWAY 

O:| 20 REM DEFINICION INICIAL DE 0 
LA COLONIA 
30 GO SUB 460: REM INICIALIZAC 

O ION 0 
| | 


40 REM 36-36363646-1 36-36-36 36 3E-3€ 1-36 EJE IE EITC AE IE HE 
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O CO. Y 


O 


O 


230 


REM BUCLE PRINCIPAL 

LET GENERACION=GENERAC ION+1 
GO SUB 290: REM IMPRESION 
GO SUB 110: REM EVOLUCION 
GO TO 46 

REM II IMEI HI HI II III IE 


REM EVOLUCION 

FOR X=2 TO 12 

FOR Y=2 TO 12 

LET C=0 

IF A$(X-1,Y-1)="X" THEN LE 
IF A$(X-1,Y)="X" THEN LET 
IF A$(X-1,Y+1)="X" THEN LE 
IF AS(X,Y-1)="X" THEN LET 
IF A$(X,Y+1)="X" THEN LET 
IF A$(X+1,Y-1)="X"” THEN LE 
IF A$(X+1,Y)="X" THEN LET 
IF A$(X+1,Y+1)="X" THEN LE 


IF A$(X,Y)="X" AND C<>2 AND 


C<>3 THEN LET B$(X,Y)=" " 


240 


IF A$(X,Y)=" " AND C=3 THEN 


LET B$(X,Y)="X" 


250 
260 
270 
280 
290 
300 
310 
320 


NEXT Y 

NEXT X 

RETURN 

E 
REM IMPRESION 

CLS 

PRINT 

PRINT TAB (4)3"GENERACION " 


3 GENERACION 


330 
340 
350 
360 
370 
380 


PRINT 

FOR X=2 TO 12 

FOR Y=2 TO 12 

LET A$(X, Y) =B$ (X, Y) 
PRINT A$(X,Y)5 

NEXT Y 


Oc. ¡, 0 3 


O 


O 


O» 0 50 0. O 0-0 0 
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390 FOR Y=12 TO 2 STEP -1 

400 PRINT A$(X,Y)5 

410 NEXT Y 

420 PRINT 

430 NEXT X 

440 RETURN 

450 REM 34-31363616-3 36 36-36-3636 36 36-36-36 36-36-1336 dE 
460 REM INICIALIZACION 

470 CLS 

480 RANDOMIZE 

500 DIM A$(13,13): DIM B$(13,13 
) 

510 PRINT : PRINT " ESPERA UN 
MOMENTO..." 

520 FOR X=1 TO 13 

540 FOR Y=1 TO 13 

550 REM RELLENO DE LA MATRIZ 
CON BLANCOS 

560 LET AS(X,Y)=" " 

570 LET B$(X,Y)=A$(X, Y) 

580 NEXT Y 

590 NEXT X 

£00 READ Dz IF D=99 THEN GO TO 
630 

610 READ E: LET A$(D,E)="X": LE 
T B$(D,E)="X" 

620 GO TO 6500 

630 LET GENERACION=0 

640 RETURN 

£50 DATA 5,5,5,9,6,6,6,8 

660 DATA 7,7 

£70 DATA 8,6,8,8,9,5,9,9 

700 DATA 99 


O 


O” O 0 O A O 0-0 


Colonias aleatorias 


Si prefieres dejar que el ordenador genere la colonia inicial, para admirar 
simplemente su trabajo, añade las siguientes líneas: 


555 IF RND>.S5 THEN LET A$(X;,Y)=" 
X":G0O TO 570 
595 GO TO 430 


La evolución de colonias generadas aleatoriamente es siempre fascinante de 
observar, como el ejemplo que tienes a continuación: 


GENERACION 1 == 
XX XXXXXXXXXX X  X [) 
X XX XX XX X 
X XX XX XX X 
X XXX XXX X _— 
IE Es 
Xx  X XX ML) 
X XX XXX XXX XX X 
X XXX XX XXX X 
X XXX XXX X == 
X XX XXX un 
XX XX XX XX XX XX XX A, 
GENERACION 2 a 
XX XXXXXX XX LU) 
XX X XX X XX 
XX XXX XX XXX XX 
X XX Xx A 
: E 
XX X XX XXX a 
XXXXX  XXXXXX  XXXXX 
XX XX XX XX 
XXX XXX XX XX n= 
X XX XX XX X ME 
X XXX XXX Xx a, 


GENERACION 3 a 


' 
XxX OXXXX  X [) 


XX XX XX 
XX XX XX XX XX 
X XX X 
X XXXX X o 
X X XX X X ¡A 
X XX XXX XX XXX XX X 
XX XX XX XX 
XX 000 Xx == 
XXX XX XX X E 
XX Xx ox 2, 


5 


51] 


> 


GENERACION 9 


XX 


XX 


XX 


GENERACION 12 


XX 
XX 


XXX XXX 
XXXXXXXXXX 
XX XX XX 

XXXXXX 
X XxX X  X 


GENERACION 24 


XX 


XXX XXX 
X X 


XX 
XX 


XX 


XX 
XX 


GENERACION 39 


XX XX 
X X XX XX X X 
XXX XXX 
XX XXX XX XXX XX 
X XXX XXX X 


XXX XX XX XXX 
XX  XXXXXXXX XX 


X X XX XX XX X  X 
X XX XX XX X 
Xx  X XX 
XX XX 


GENERACION S1 


xx 
xx 
xx 
xx 
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Simulación 
de un robot 


En este capítulo vamos a hacer programas que representan dos simulaciones 
a la vez. El programa nos permitirá, en primer lugar, simular un robot que 
obedece una serie de instrucciones introducidas por nosotros antes de que el 
programa se ejecute. En segundo lugar, el programa imita a un intérprete de un 
lenguaje de ordenador, y así permite al ordenador (y, por tanto, al robot) 
entender las instrucciones que le damos en un nuevo “lenguaje de control del 
robot” (LCR), desarrollado especialmente para este libro. 

Muse Software, de Baltimore, creó un programa simulador de un robot 
llamado ROBOTWAR. Este programa te permitirá programar una serie de 
robots, para luego introducirlos en un campo de batalla para luchar por la 
victoria. ROBOTWAR te permite programar los robots en un lenguaje que es 
básicamente inglés, con unas pocas sentencias del BASIC (como GOTO y 
GOSUB). 

Nuestros programas ROBOT LOGO y ROBOT DE PUNTOS (que se 
derivan del primer programa) son mucho más simples que ROBOTWAR, pero 
aún producen resultados muy interesantes y sorprendentes. 

Primero veremos ROBOT LOGO. Para mostrarte qué puede hacer y para 
darte una idea de cómo es un listado en LCR, aquí tienes un programa que 
hace que el robot trace mis iniciales en la pantalla, dejando marcado el camino 
por donde pasa: 
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MIRA 90 
—— AVANZA 7 
VE 8,26 
o AVANZA 5 
ES 
e, VE bTÉ 
MIRA 180 
== AVANZA 6 
E VE 6,26 
a AVANZA £ 
VE 5,34 
ER AVANZA 6 
Ed ESCRIBE 
¡, * 


Este es el resultado de la ejecución del programa: 


X X X 


1) 


AX >A>X>A>A > 
<XXA>X>A> > 
XXA>X>>ox>o 


1] 


Hay doce sentencias en LCR, de las cuales cualquiera puede ser abreviada a 
sus dos primeras letras. El programa en LCR se escribe dentro del programa en 
BASIC, en el conjunto de sentencias DATA, de las cuales la última debe 
contener simplemente un asterisco. Estas líneas DATA están al principio del 
programa. La línea que se está procesando en un momento dado aparece en la 
parte de arriba de la pantalla, de forma que puedes ver los efectos que produce 
cada línea. 


El lenguaje 
Aquí está el vocabulario completo del LCR: 


ARRANCA (AR): Comienza de nuevo. 

ESCRIBE (ES): Para la acción del robot, limpia la pantalla e imprime 
la situación actual antes de continuar con la ejecución 
del programa. 

AVANZA (AV): Seguido de un número, dice al ordenador que se mue- 
va hacia adelante el número de “pasos” que indica el 
número que le sigue. 


ATRAS (AT): El contrario de AVANZA, como es lógico. 

GIRA (GI): Seguido de un número, esta orden hace girar al robot 
el número especificado de grados; se empieza una 
ejecución con cero grados, apuntando a la parte de 
arriba de la pantalla. 

CENTRO (CE): Retorna al robot al centro de la pantalla, mirando 
hacia arriba. 


LIMPIA (LI): Borra los pasos anteriores (la acción de esta orden, 
como las otras, estará clara cuando la utilices). 
VE (VE): Debe estar seguido por dos números, que representan 


las coordenadas a donde se va a mover el robot, sin 
dejar huellas entre la antigua posición y la nueva. 


AZAR (AZ): Mueve el robot a una posición de la pantalla escogida 
aleatoriamente; es como un VE aleatorio. 
REPITE (RE): Seguido de un número, esta sentencia permite repetir 


una parte del programa un número de veces determi- 
nado antes de continuar; así se pueden producir efec- 
tos fascinantes, como pronto verás. 

FIN REPITE (FI): Termina el bucle REPITE; todas las sentencias del 
programa LCR que se encuentren entre el REPITE y 
el FIN REPITE se repetirán el número de veces que 
se haya especificado. 

MIRA (MD): Seguido de un número, hace que el robot se quede 
mirando hacia un ángulo determinado, considerando 
que cero grados es la parte de arriba de la pantalla. 
(Observa que GIRA es relativo a la dirección en que 
esté mirando el robot en ese momento, lo que no 
ocurre con MIRA.) 


Estas instrucciones se pueden combinar para producir todo tipo de resulta- 
dos. Si estás familiarizado con el LOGO, verás que algunas de las sentencias 
LCR son muy similares a las instrucciones gráficas de la tortuga del LOGO. 

LOGO fue desarrollado en el grupo de Inteligencia Artificial del Instituto de 
Tecnología de Massachusetts por Seymour Papert, con Marvin Minsky, Ha- 
rold Abelson y Andrew diSessa. Se escribió de forma que su estructura fuera 
parecida a la forma en que los humanos resuelven los problemas, en lugar de 
guiarse por cómo trabaja una máquina. 

Desde luego, nuestro LCR es muy limitado en comparación con el LOGO, 
pero se puede ampliar fácilmente al nivel de complejidad que se desee. El 
estudiar el listado te enseñará cómo es relativamente fácil escribir un programa 
que interprete otro programa escrito en un lenguaje que tú mismo hayas 
creado. 

Aparte de estas limitaciones, se puede sacar mucho partido al LCR, como 
muestran los simples ejemplos que tienes a continuación. 

Este simple programa LCR produce octógonos: 
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Octógono 


[) 


VE 11,35 

REPITE 8 
AS AVANZA 4 
El 

GIRA 45 

FIN REPITE 
ES ESCRIBE 
ML) ig 

XX XX X 
X X 


ES E 


X X 
ES ra. 
LJ) X XX X X 
Obtendrás diamantes con este otro 
>) Diamantes 
(CO, 
AZAR 
MIRA 45 
P) REPITE 4 y a 
lo) AVANZA 2 A 
GIRA 90 x 
FIN REPITE 
P) ESCRIBE 
ARRANCA 
A, * 


Y los cuadrados se crean con este listado LCR: 


O 
N 


XX>X>xo> 


Cuadrado 


a 
LL) 


VE 11,35 X X 
REPITE 4 X Xx 
AVANZA 4 x X 
GIRA 90 X X ue 
FIN REPITE X X 
ESCRIBE X Xx E 
E XX XX XX ox 


Los triángulos descendentes son fáciles (y observa que estamos usando las 
órdenes abreviadas): 


Triángulos descendentes 


1) 


X>xXo>o 
x 


1) 
L 


| 
LL) 


Xx 

XX 

XX 

XX 
VE 5,5 a LU 
YE XX XX 
XX 

Av 3 XX XX e, 
Gl 135 : 
Av 3 
MI 90 == 
E an 
MI 180 (A, 
AV 3 
MI O 


a 
LJ) 


Y por medio del siguiente programa LCR podemos hacer que nuestro robot 
baje por unas escaleras: 


Po) Escalera 

A, VE 1,1 
RE 6 
MIRA 90 


—=] AVANZA 3 

E MIRA 180 

os AVANZA 3 
FIN REPITE 
ESCRIBE 


XX>xX>ox 


JO 
cal, ES 


XX>X>ox 


XX>xox 


ue 


XX>x>o 


Si te sientes muy creativo, también puedes conseguir que el robot haga 
dibujos, como hizo anteriormente con mis iniciales o como esta “vista lateral de 
una mesa”: 


Vista lateral de una mesa 


VE 20,50 
UE MIRA 315 
¡MO AVANZA 9 
MIRA 90 


2 


AVANZA 10 ER 
MIRA 225 E) 


AVANZA 10 _ 
ESCRIBE 
n= 
XX XX XXX Xx XX Xx E 
Xx Xx —— 
Xx Xx 
X X 
XX Ue 
X ¡O 
XX 
X Xx 


Escritura de un programa 


Como dije anteriormente, el programa LCR está situado en el conjunto de 
sentencias DATA al principio del listado: 


100 REM ROBOT LOGO 

110 GO SUB 1730: REM INICIALIZA 
CION 

120 GO TO 490 

130 REM 4333133636 36-36-1363 IE II IE IE IE 
140 REM 

150 REM 

140 REM 

170 REM 

180 REM 

190 REM 

200 REM 

210 REM 

220 REM 

230 REM 

240 REM 

250 REM 

260 REM 

270 REM 

280 REM 
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O 290 REM O 
300 REM 
310 REM 


320 DATA "*" 
NN 


O 


I 
I 
' 
' 
' 
rl 315 REM 
1] 
| 
1 


Aquí hay un listado para crear octógonos aleatorios. Podemos aprender 
mucho de LCR examinándolo: 


Octógono 
n= AZAR 
NE REPITE 8 
¡qe AVANZA 2 

GIRA 45 

FIN REPITE 
uu ESCRIBE 

ORRANES 


Comienza con AZAR, que mueve al robot a una posición de la pantalla 
escogida aleatoriamente. Las dimensiones de la pantalla están previstas en el 
programa (mira las líneas 1770 y 1780 del listado del siguiente capítulo), luego 
trabajará sin problemas en tu ordenador. 

Una vez se ha situado el robot, el ordenador llega a la línea REPITE 8. 
Esto indica, como está suficientemente claro, que la siguiente sección del pro- 
grama se va a realizar ocho veces. El robot AVANZA 2 y GIRA 45 grados. 
Una vez hecho esto ocho veces, se ha trazado un octógono que ESCRIBE 
imprime en la pantalla para que lo veas: 


X X 
X X X Xx X 
[) X XX X X 
AE, X X X X X X XX 
X X X Xx X X 
X X X X 
[) ' a : 
X CAR X X 
Y) X X X X 
X Xx X X X X 


X XxX X X X X | 
X X Xx X X X X Pl 
X X X X X X [== 
X X X XX X 
X X X XX X 
X XX X Xx x P] 
X X XX X e e ¡MY 


La última sentencia, ARRANCA, devuelve al ordenador a la primera línea 
del programa, para seleccionar otra posición aleatoria. El LCR automáticamen- 
te rechaza los valores que caen fuera de la pantalla, luego no se producirá 
ningún error si intentas pasear por fuera del mundo del robot. Simplemente, 
dibujará estos puntos como si estuvieran fuera de la pantalla, y así empezará en 
el punto adecuado cuando vuelva a la pantalla. 

Puedes ver, por los ejemplos anteriores, que el robot puede hacer cosas muy 
interesantes. La mayor limitación está en las órdenes GIRA y MIRA. Sólo 
pueden trabajar, en su forma actual, con incrementos de 45 grados, y aproxima 
(mira las líneas 1040 y 1620) cualquier ángulo al múltiplo de 45 más cercano 
antes de lanzar al robot por su camino. Esta restricción es necesaria para 
conseguir un dibujo compacto del camino del robot, debido a la baja resolución 
de la red por donde anda el robot. 

El listado completo de ROBOT LOGO está en el siguiente capítulo. 
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El listado de 
Robot Logo 


Es seguro que pasarás buenos ratos usando este listado para conseguir que 
el robot ejecute programas hechos por ti. Simplemente colócalo, en la forma 
DATA “REPITE $8”, entre las líneas 140 y 310. La línea 320, donde sólo hay un 
asterisco en el DATA, indica al programa intérprete que ha llegado al final del 
listado. Para conseguir el listado de tu programa por la impresora, ejecuta el 
programa y a continuación teclea y ejecuta lo siguiente: 


FOR Z=1 TO 20: LPRINT A$(Z): NEXT Z 


En su forma actual el programa puede soportar programas LCR de menos 
de 20 líneas. Si quieres que admita programas más largos, cambia el 20 de las 
líneas 530 y 1820 por el número de sentencias que desees incluir. Recuerda que 
tienes que dejar un hueco para el asterisco (el indicador de fin de listado). 

Por tanto, aquí tienes el listado para que puedas gobernar tu propio robot: 


1090 REM ROBOT LOGO 
110 GO SUB 1730: REM INICIALIZA 


| 
I 
I 
CION o 
] 
I 
I 
' 


| 
O; 
| 
| 
' 


120 GO TO 490 
130 REM 3636363636 36 36-36-16 36-36-36 36 36 36 36 36 36-36 36 36 46 36 
O 140 REM O 
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o OOO O 


OQ: O O O 


O 


O 


150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
315 
320 
330 
340 
350 


REM 
REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

DATA "+" 

REM 03436363636 36-363 3E-HTE IEA HI HE MEIEH MEELE 
REM INT VX,HX 

LET VX=INT (VX+.5): LET HX= 


INT (HX+.5) 


360 
370 
380 
390 
400 
CP): 
410 
420 
430 
440 
450 
460 
470 
480 
490 


RETURN 

A ii 
REM ESCRIBE 

CcLs 

PRINT "LINEA "5CP3" > "5A$( 


PRINT 

FOR J=1 TO PROF 

FOR K=1 TO ANCHU 

PRINT Z$(J,K)5 

NEXT K 

PRINT 

NEXT J 

RETURN 

REM III MEM MIME MEME II MEM HEEE 
REM LECTURA DEL PROGRAMA 
LET CONTADOR=0 

LET CONTADOR=CONTADOR+1 
READ A$ (CONTADOR) 

IF AS (CONTADOR) (1)="x" THEN 
TO 550 

IF CONTADOR<20 THEN GOD TO 


0. 0.-.Q0 00 0.0 0 0-0 0 0: O 9 


O 


O 


540 REM dem 10 IE III MITE INR IIANRAA 
3950 REM EJECUCION DEL PROGRAMA 
560 LET CP=0: REM CONTADOR DE P 
ROGRAMA 

570 LET CP=CP+1 

3580 IF CP=21 THEN GO TO 580: R 
EM FIN 

600 LET M$=A$ (CP) 

610 IF M$="x*%" THEN GO TO 610: 
REM FIN 

620 LET N$=M$( TO 2) 

630 IF N$="AR" THEN GO TO 560: 
REM ARRANCA 

640 IF N$="ES" THEN GO SUB 380 
: REM ESCRIBE 

650 IF N$="AV" THEN GD SUB 780 
660 IF N$="AT" THEN GO SUB 940 
670 IF N$="GI"” THEN GO SUB 100 
O 

680 IF N$="CE" THEN GO SUB 116 
lo) A 
690 IF N$="LI"” THEN GO SUB 122 


700 IF N$="VE" THEN GO SUB 126 
710 IF N$="AZ" THEN GO SUB 140 
720 1F N$="RE" THEN GO SUB 146 
730 IF N$="FI" THEN GO SUB 153 
740 I1F N$="MI" THEN GO SUB 158 


760 GO TO 570 

A DAA 
780 REM AVANZA 

790 LET M$=M$(4 TO ) 

800 IF CODE (M$)=78 THEN LET M 
$=M$(5 TO ) 

810 LET Fs$="F" 

820 LET NUM=VAL (M$) 

830 FOR E=1 TO NUM 

840 IF VX<1 OR VX>PROF THEN GO 
TO 8go 

850 IF HX<1 OR HX>ANCHU THEN G 


O. O H O dl 70 4 0 


O 


YA] 


72 


ooo o. O 


O 


O O Y 


o TO 880 

860 LET Z$(VX, HX)=T% 

880 IF F$="F" THEN LET VX=VX+V 
E: LET HX=HX+HO 

890 IF F+="B" THEN LET VX=VX-V 
E: LET HX=HX-HO 

900 GO SUB 340 


910 NEXT E 

920 RETURN 

930 REM 4d 36 1106 M6 III III MA 
940 REM ATRAS 


950 LET M$=M5$(4 TO ) 

960 IF CODE (M$)=65 THEN LET M 
$=M$ (4 TO ) 

970 LET F$="B" 

980 GO TO 820 

990 REM Id 16H 1 HEM IE MIE MIMI IM MA 
1000 REM GIRA 

1010 LET M$=M$(4 TO ) 

1020 IF CODE (M$)=65 THEN  LET M 
$=M$(3 TO ) 

1030 LET NUM=VAL (M%) 

1040 LET Y=INT ((NUM+17.5)/45) 
1050 IF Y=0 OR Y=8 THEN RETURN 
1060 FOR J=1 TO Y 

1070 IF VE=-1 AND HO=0 THEN  LET 
HO=1: GO TO 1130 

1080 IF VE=0 AND HO=1 THEN LET 
VE=1: GO TO 1130 

1090 IF VE=1 AND HO=0 THEN LET 
HO=-1: GO TO 1130 

1100 IF VE=0 AND HO=-1 THEN  LET 
VE=-1: GO TO 1130 

1110 IF VE=-1 AND HO=-i OR VE=1 
AND HO=1 THEN LET HO=0: GO TO 1 
130 

1120 IF VE=-1 AND HO=1 OR VE=1 A 
ND HO=-1 THEN LET VE=0 

1130 NEXT J 

1140 RETURN 

1150 REM 646226-20-96-36-06-46-16-16-16-36-26 36 1616 36-26152636-2 
1160 REM CENTRO 

1170 LET HX=INT ((ANCHU+. 5) /2) 
11809 LET VX=INT ((PROF+.5)/2) 
1190 LET VE=-1: LET HO=0: REM MI 


O” ¡O O O 


O 0 


a.” O == 


O: QU e. O 0 


RA HACIA ARRIBA 

1200 RETURN 

1210 REM 40-16-2306 36-361 0HE MIRE III IAE MAA 
1220 REM LIMPIA 

1230 GO SUB 1870 

1240 RETURN 

1250 REM d34-2-4361- MI IAE M EM RAR 
1260 REM VE X, Y 

1270 LET P=0 

1280 LET P=P+1 

1290 IF M$(P TO P)="," THEN GO 

TO 1320 

1300 IF P<LEN (M$) THEN GO TO 1 

280 

1310 RETURN : REM ERROR 

1320 LET VX=VAL (M$(4 TO P-1)) 
1330 LET HX=VAL (M$(P+1 TO )) 
1340 GO SUB 340 

1350 IF VX<1 OR VX>PROF THEN GO 
TO 1380 

1360 IF HX<i OR HX>ANCHU THEN 6G 

O TO 1380 

1370 LET Z$(VX,HX)=T5 


1380 RETURN 
1390 REM 34212 13-13-1146 II IE MIE II IEEE 


1400 >REM AZAR 

1410 LET HX=INT (RND*ANCHU) +1 
1420 LET VX=INT (RND*PROF)+1 
1430 LET Z$(VX, HX)=T% 

1440 RETURN 

1450 REM 446-46-6-16-26-2696-M-26-1696-16-H-16I6 HH HE HEHE 
1460 REM REPITE 

1470 LET M$=M$(4 TO ) 

1480 IF CODE (M$)=73 THEN  LET M 
$=M$ (5 TO ) 

1490 LET RECONT=VAL (M$) 

1500 LET MARCADOR=CP 

1510 RETURN 

1520 REM 36-36363616-3 16-16 3 36-16-36 36-16 36-36 16-36 36-16 36-16 36 
1530 REM FIN REPITE 

1540 LET RECONT=RECONT-1 

1550 IF RECONT>0 THEN LET CP=MA 
RCADOR 

1560 RETURN 

O II A 


O" O: 0 1 


O 


O 0 Co 0 


Or” O CO O 


73 


74 


o. o. Oo. O 


O O 50 DD. ¿0 00 0.50 Or UD 


O 


1580 REM MIRA 

1590 LET M$=M$(4 TO ) 

1600 IF CODE (M$)=65 THEN  LET M 
$=M$(3 TO ) 

1610 LET NUM=VAL (M%) 

1620 LET Y=INT ((NUM+17.5)/45)+4 
Ea] 

1630 IF Y=0 OR Y=360 THEN LET V 
E=-1: LET HO=0 

1640 IF Y=45 THEN LET VE=-1: LE 
T HO=1 

1650 IF Y=90 THEN LET VE=0: LET 
HO=1 

1660 IF Y=135 THEN LET VE=1: LE 
T HO=1 

1670 IF Y=180 THEN LET VE=1: LE 
T HO=0 

1680 IF Y=225 THEN LET VE=1: LE 
T HO=-1 

1690 IF Y=270 THEN LET VE=0: LE 


T HO=-1 
1700 IF Y=315 THEN LET VE=-1:2 L 
ET HO=-1 


1710 RETURN 

1720 REM I6-316-3-36 36-36-36 3-36-8-36-36-3-3-3-16-36-36 16-16 36-16-36 

1730 REM INICIALIZACION 

1740 CLS 

1750 RANDOMIZE 

1760 REM MODIFICA LAS DOS LINEAS 
SIGUIENTES SEGUN LAS 
CARACTERISTICAS DE TU 
ORDENADOR. 

1770 LET ANCHU=32: REM CARACTERE 

S HORIZONTALMENTE 

1780 LET PROF=22: REM CARACTERES 

VERTICALMENTE 

1770 LET ANCHU=ANCHU-1 

1800 LET PROF=PROF-3 

1810 LET VE=-1: LET HO=0: REM EM 

PIEZA MIRANDO HACIA ARRIBA 

1820 DIM A$(20,15): REM PARA EL 

PROGRAMA DEL ROBOT 

1830 DIM Z$(PROF, ANCHU): REM PAN 

TALLA 

1840 LET T$="X": REM PON AQUI EL 


O: 0.0 4 


O. O 0-0 


SIMBOLO QUE QUIERAS USAR PARA 
MARCAR EL CAMINO DEL ROBOT. 


I ] 
l | 
1 | 

O 1850 LET VX=0: LET HX=0 0 
1860 REM SE LLENA LA MATRIZ CON 
ESPACIOS 

O ¡| 1870 FOR J=1 TO PROF ¡ O 
1880 FOR K=1 TO ANCHU | 
' 1890 LET Z$(J,K)=" " ' 

] , ] 
Es 1990 NEXT K ¡O 
| 1910 NEXT 3J 

] 
el 1920 RETURN o 
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El Robot de 
Puntos 


Aunque el ROBOT LOGO es interesante dentro de sus posibilidades, he 
observado, tras usarlo un rato, que realmente no tiene muchas posibilidades. El 
programa está desarrollado, como los otros de este libro, para que se pueda 
ejecutar casi en cualquier ordenador con BASIC y, por tanto, utiliza una matriz 
para almacenar los movimientos del robot y la posición actual. ESCRIBE se 
limita a escribir esta matriz. 

El programa del ROBOT DE PUNTOS hace uso del comando PLOT del 
Spectrum para dibujar puntos con una resolución mucho mayor que el primer 
programa (256 y 176 en lugar de 32 y 22). Si tu ordenador no usa PLOT para 
dibujar su punto en la pantalla, busca en tu manual PSET, POINT, SET o una 
orden similar. 

Aquí está el listado del ROBOT DE PUNTOS, que está basado en el 
programa ROBOT LOGO del capítulo anterior. Las líneas no están renumera- 
das, luego verás que es fácil transformar el primer listado en el segundo. Las 
Órdenes son las mismas, excepto que ESCRIBE ya no es necesario, ya que el 
programa imprime automáticamente a medida que se va ejecutando. 


ee 190 REM ROBOT DE PUNTOS O 
110 GO SUB 1730: REM INICIALIZA 
O | CION O 


120 GO TO 490 


78 


O” TO 70. O. -0. QQ. O O 0 


O 


O 


130 
- 140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
315 
320 
330 
340 
350 


A 
REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

DATA »” + ” 
e 
REM INT VX,HX 

LET VX=INT (VX+.5): LET HX= 


INT (HX+.5) 


360 
480 


490 REM LECTURA DEL PROGRAMA 
495 LET CONTADOR=0 

500 LET CONTADOR=CONTADOR+1 

510 READ A$ (CONTADOR) 

520 IF AS (CONTADOR) (1)="x%*" THEN 

GO TO 550 

530 IF CONTADOR<20 THEN GO TO 
500 

540 REM 303326361036 H6 MAA IE II IIEIE AAA 
550 REM EJECUCION DEL PROGRAMA 
560 LET CP=0: REM CONTADOR DE P 
ROGRAMA 

570 LET CP=CP+1 

580 IF CP=21 THEN GO TO 580: R 
EM FIN 

600 LET M$=A$ (CP) 

610 IF M$="x*" THEN GO TO élo: 
REM FIN 


RETURN 
A 


O 0 OQ 0 


O 


O 


O O O 0.0 O O 0 


DO Y O. DD O" QQ - O E dd “0 (O 0 


O 


¡o 


620 LET N$=M$( TO 2) 

630 IF N$="AR" THEN GO TO 360: 
REM ARRANCA 

650 IF N$="AV" THEN GO SUB 780 
660 IF N$="AT" THEN GO SUB 940 
670 IF N$="GI" THEN GO SUB 100 
o 

680 IF N$="CE" THEN GO SUB 116 
LU) 

700 IF N$="VE" THEN GO SUB 126 
0 

710 IF N$="AZ" THEN GO SUB 140 
o 

720 IF N$="RE" THEN GO SUB 146 
LU) 

730 IF N$="FI" THEN (GO SUB 153 
0) 

740 IF N$="MI" THEN GO SUB 158 
1) 

760 GO TO 570 

770 REM 46-31-46 33-36 36-36336136-3 -IEIE IE HEAT TELE 
780 REM AVANZA 

790 LET MS$=M5$(4 TO ) 

800 IF CODE (M$)=78 THEN LET M 
$=M$(5 TO ) 

810 LET Fs$="F" 

820 LET NUM=VAL (M$) 

830 FOR E=1 TO NUM 

840 IF VX<1 OR VX>PROF THEN GO 
TO 880 

850 IF HX<1i OR HX>ANCHU THEN 6G 
o TO 880 

860 PLOT HX,VX 

880 IF F$="F" THEN LET VX=VX+V 


E: LET HX=HX+HO 


890 


IF F$="B" THEN LET VX=VX-V 


E: LET HX=HX-HO 


900 
910 
920 
930 
940 
950 
960 


GO SUB 340 

NEXT E 

RETURN 

REM 446310010 MEME HE DE IEEE AMAIA 
REM ATRAS 

LET M$=M5$(4 TO ) 

IF CODE (M%$)=65 THEN LET M 


$=M5$(4 TO ) 


O 


O 


O”. O <Q 2:90 00 “O 0 <Q 


O. U— O 0 
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O: O. O e 


QDD QQ 


970 LET F$="B" 

980 GO TO 820 

990 REM 3344636363636 3E-3E-3E-H-HE-IE EII TEME IE IE HIERE 
10900 REM GIRA 

1010 LET M$=M$(4 TO ) 

1020 IF CODE (M$)=65 THEN LET M 
$=M$(3 TO ) 
1030 LET NUM=VAL (M5$) 

10940 LET Y=INT ((NUM+11.25)/22.5 
) 

1050 IF Y=0 OR Y=16 THEN RETURN 


1060 FOR J=1 TO Y 

10653 IF VE=-2 AND HO=0 OR VE=2 A 
ND HO=2 THEN LET HO=1: GO TO 11 
30 

1070 IF VE=-2 AND HO=1 THEN  LET 
HO=2: GO TO 1130 

1075 IF VE=-2 AND HO=2 OR VE=09 A 
ND HO=-2 THEN LET VE=-1: GO TO 
1130 

1080 IF VE=-1 AND HO=2 OR VE=1 A 

ND HO=-2 THEN LET VE=0: GO TO 1 
130 

1085 IF VE=0 AND HO=2 OR VE=2 AN 
D HO=-2 THEN LET VE=1: GO TO 11 

30 

1090 IF VE=1 AND HO=2 THEN  LET 

VE=2: GO TO 1130 

1095 IF VE=2 AND HO=1 THEN LET 

HO=0: GO TO 1130 

1100 IF VE=2 AND HO=0 THEN  LET 

HO=-1: GO TO 1130 

1105 IF VE=2 AND HO=-1 THEN LET 
HO=-2: GO TO 1130 

1110 IF VE=-1 AND HO=-2 THEN LE 

T VE=-2: GO TO 1130 

1115 IF VE=-2 AND HO=-2 THEN LE 

T HO=-1: GO TO 1130 

1120 IF VE=-2 AND HO=-1 THEN LE 
T HO=0 

1130 NEXT J 

1140 RETURN 

A 
1160 REM CENTRO 


O. 


O: CU O O 0: 0 


O O O 0 


O 


O 


1170 


LET HX=INT ((ANCHU+. 5) /2) 


1180 LET VX=INT ((PROF+.53) /2) 


1190 


LET VE=-1: LET HO=0: REM MI 


RA HACIA ARRIBA 


1200 
1250 
1260 
1270 
1280 
1290 


RETURN 
REM III 36d EE DE IE IIED, IE IE 6 E dE I-II IE IE 
REM VE X,Y 

LET P=0 

LET P=P+1 

IF MS(P TO P)="," THEN GO 


TO 1320 


1300 
280 

1310 
1320 
1330 
1340 
1350 


IF P<LEN (M$) THEN GO TO 1 


RETURN : REM ERROR 

LET VX=VAL (M$(4 TO P-1)) 
LET HX=VAL (M$(P+1 TO )) 

GO SUB 340 

IF VX<1 OR VX>PROF THEN GO 


TO 1380 


1360 
oO TO 
1370 
1380 


1480 


IF HX<1 OR HX>ANCHU THEN 6G 
1380 

PLOT HX,VX 

RETURN 

REM 64636363166 dE DE IEA IE TE DE IE IE dE IE TE IE HE IE E 
REM AZAR 

LET HX=INT (RND*ANCHU) +1 
LET VX=INT (RND*PROF)+1 
PLOT HX,VX 

RETURN 

REM III IE IE IE II IE RE IE IE IE EE IE EE IE TEJE 
REM REPITE 

LET M$=M$(4 TO ) 

IF CODE (M$)=73 THEN LET M 


$=M$(5 TO ) 


1490 
1500 
1510 
1520 
1530 
1540 
1550 


LET RECONT=VAL (M%) 

LET MARCADOR=CP 

RETURN 
A 
REM FIN REPITE 

LET RECONT=RECONT-1 

IF RECONT>0 THEN LET CP=MA 


RCADOR 


1560 
1570 
1580 


RETURN 
REM IMM EME M6 III IE III III 


REM MIRA 


O O. O -O- 0-0. O. 


O 


O. O. O O. <Q 


O 


O". 0 -Q- Y 10- O O O -Q-— Y 


O 


O 


1590 LET M$=M$(4 TO ) 

1600 IF CODE (M$)=65 THEN LET M 
$=M5$ (3 TO ) 

1610 LET NUM=VAL (M%) 

1620 LET Y=INT ((NUM+11.25)/22.5 
322.5 

1630 IF Y=0 OR Y=360 THEN LET Y 
E=-2: LET HO=0 

1635 IF Y=22.5 THEN LET VE=-2: 


LET HO=1 

16540 IF Y=45 THEN LET VE=-2: LE 
T HO=2 

1645 IF Y=67.5 THEN LET VE=-1: 
LET HO=2 

1650 IF Y=90 THEN LET VE=0: LET 
HO=2 

1655 IF Y=112.5 THEN LET VE=1: 
LET HO=2 

1660 1F Y=135 THEN LET VE=2: LE 
T HO=2 

1665 IF Y=157.5 THEN LET VE=2: 
LET HO=1 


1670 1F Y=180 THEN LET VE=2: LE 

T HO=0 

1675 I1F Y=202.5 THEN LET VE=2: 

LET HO=-1 

1680 IF Y=225 THEN LET VE=2: LE 

T HO=-2 

1685 1F Y=247.5 THEN LET VE=1: 

LET HO=-2 

16590 IF Y=270 THEN LET VE=0: LE 
T HO=-2 

1695 IF Y=292.5 THEN LET VE=-1: 
LET HO=-2 

1700 IF Y=315 THEN LET VE=-2:2 L 
ET HO=-2 

1705 IF Y=337.5 THEN LET VE=-2: 
LET HO=-1 

1710 RETURN 

1720 REM 3-43 d63-26-26-10H6M 1630 H MIA IE HEM 
1730 REM INICIALIZACION 

1740 CLS 

1750 RANDOMIZE 

1760 REM MODIFICA LAS DOS LINEAS 

SIGUIENTES SEGUN LAS 


O 


O 


50. 0 O) LO O 0-20 0. O 0. 0 0 


CARACTERISTICAS DE TU 


1920 RETURN 


O ORDENADOR. O 
1770 LET ANCHU=256: REM PUNTOS 
HORIZONTALMENTE 

O ! 1780 LET PROF=176: REM PUNTOS e, 
: VERTICALMENTE 
1790 LET ANCHU=ANCHU-1 

O | 1800 LET PROF=PROF-3 O 
: 1810 LET VE=-2: LET HO=0: REM EM 

o! PIEZA MIRANDO HACIA ARRIBA 
| 1820 DIM A$(20,15): REM PARA EL ¡O 
PROGRAMA DEL ROBOT | 
| =Q+* a ! 

o! 1850 LET VX=0: LET HX=0 | O 
| 


Hay muchos programas divertidos que puedes escribir para que siga tu 
robot. Puedes ver en las secciones GIRA y MIRA que el programa admite 
cambios de ángulos de 17.5 grados, mucho mejor que los 45 que tenía el 
ROBOT LOGO. 

Cuando tengas preparado para ser ejecutado el ROBOT DE PUNTOS 
prueba los siguientes programas: 

El primero es MAGNOLIA: 


Magnolia 

VE 100,170 [) 
REPITE S 

AVANZA 13 2 
GIRA 72 

FIN REPITE 

ARRANCA P) 
* l =>) 


Añadiendo una simple línea adicional a este programa, se consigue una 
VENTANA DE IGLESIA: 


Ventana de iglesia 


VE 100,170 
REFITE 4 3 
AVANZA 13 

GIRA 90 == 
FIN REPITE 

GIRA 22.5 == 
ARRANCA E 
* lu) 


E 


LA ROSA DE HAMPTON COURT es una buena demostración de nues- 
tro pequeño robot en acción: 


La rosa de Hampton Court 


VE 100,170 
UE REPITE 2 
lu) AVANZA 3 
GIRA 22.5 
AVANZA 6 
7 GIRA 22.5 
AVANZA 9 
LY) GIRA 22.5 
AVANZA 12 
GIRA 22.5 
[] AVANZA 12 
ly GIRA 22.5 
AVANZA 7 
GIRA 90 
P) FIN REPITE 
ARRANCA 
¡PA e 


LCR nos continúa asombrando con ESPIRAL NEBULA: 


Espiral nebula 

VE 100,170 
p] AVANZA 2 
E GIRA 22.5 
[== AVANZA 5 


GIRA e2.5 
AVANZA 8 


>] GIRA 22.5 
lo) AVANZA 11 
GIRA 22.5 


AVANZA 15 
PA] GIRA 22.5 
SN AVANZA 7 
CAS, ARRANCA 

* 


MANIAC decora tu pantalla con algo sorprendente: 
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Maniac 


VE 100,170 


REPITE 2 () 
AVANZA 10 

GIRA 90 > 
AVANZA 12 

FIN REPITE 7 


ARRANCA 


] 
* las! 


Y este es SIGNALMAN FREUD (que trabajó en la compañía de trenes de 
Viena): 


Signalman Freud 


VE 100,170 
GIRA 135 > 
AVANZA 25 a 
REPITE 4 (ES, 
AVANZA 10 

GIRA 90 

FIN REPITE Po) 
ARRANCA lo) 


* 


En nuestro siguiente programa, BUBBLES, uso dos bucles REPITE. Obser- 
va que no están, y no pueden estar, aninados, ya que el LCR no admite bucles 
anidados: 


Bubbles 

AZAR 7 
REPITE 16 UN 
AVANZA 2 LL) 
GIRA 25 

FIN REPITE 

AZAR "TD 
REPITE 16 () 
AVANZA 1 

GIRA 25 

FIN REPITE == 
ARRANCA 3 
pl ¡Y 


Al quitar la segunda línea AZAR el programa se convierte en uno que he 
llamado LOS OJOS TE ESTAN MIRANDO: 


Los ojos te están mirando 


[)] AZAR 
y) REPITE 16 
AVANZA 2 
GIRA 25 
PAN FIN REPITE 
[] REPITE 16 
7 AVANZA 1 
GIRA 25 
FIN REPITE 
ARRANCA 


|] 


* 


De éste pasamos a LA DANZA DE LOS BASTONES: 


La danza de los bastones 


[] AZAR 

lu) AVANZA 15 
GIRA 315 
ATRAS 5 
GIRA 22.5 
ARRANCA 


El 
¡e 


* 


Y, por último, CALLE DE SENTIDO UNICO: 


Calle de sentido único 


AZAR 
an AVANZA 15 
¡CM GIRA 315 
ATRAS 6 
AVANZA 6 
E GIRA 270 
AVANZA 6 
¡A ARRANCA 


* 


Estaría interesado en ver cualquier programa que escribas en LCR, para 
ambos programas. Puedes ponerte en contacto conmigo por medio del editor. 
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Simulación de 
la inteligencia 


La inteligencia artificial (IA) es una de las áreas en boga de la ciencia 
informática en el momento. Se está haciendo un gran esfuerzo para conseguir 
que los ordenadores se comporten de forma que parezca inteligente. La investi- 
gación en IA se ha dedicado en parte a cómo hacer que un ordenador juegue a 
ciertos juegos. Se han producido unos resultados muy positivos, como la gene- 
ración actual de máquinas que juegan al ajedrez. Los “sistemas expertos”, en los 
cuales el ordenador usa la experiencia de especialistas humanos para llegar a 
unas decisiones y dar consejos, es un área muy interesante en el desarrollo 
actual de la IA. Los sistemas expertos se han desarrollado en un amplio 
espectro de disciplinas. Los sistemas en uso actualmente pueden hacer cosas 
como diagnosticar cierto tipo de enfermedades, ayudar en síntesis químicas y 
prestar ayuda en la búsqueda de depósitos minerales. 

En este capítulo nos vamos a concentrar en la parte de la inteligencia 
artificial que se ocupa de los juegos. La simulación que vamos a utilizar juega al 
juego CUATRO EN RAYA o CONECTA CUATRO, en el cual dos jugadores 
colocan por turno fichas en la posición disponible más baja de la columna de un 
tablero, intentando que cuatro de sus fichas formen una línea en cualquier 
dirección. 

Los juegos han sido una de las primeras áreas de la IA en la que se han 
conseguido resultados satisfactorios. El alcance de la IA se ha ampliado en los 
últimos veinte años, y ahora cubre campos como la percepción (habla y visión), 
el entendimiento de lenguajes humanos (“naturales”) y el desarrollo de sistemas 
expertos, como se mencionó anteriormente. 

Es interesante observar que los programas de ordenador que intentan pare- 
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cer inteligentes a menudo trabajan de forma muy diferente a los métodos que 
un humano utiliza para solucionar problemas muy similares. Por ejemplo, los 
maestros de ajedrez no analizan sistemáticamente cientos de posibles movimien- 
tos, dando una puntuación a cada uno y eligiendo el que produce unos mejores 
resultados. Un jugador humano hace sus movimientos casi intuitivamente. Los 
expertos humanos no alcanzan sus decisiones por medio de estudiar consciente- 
mente cada parte de información que puede ser relevante antes de decidir cuál 
es la que tiene mayor probabilidad de ser correcta. 

De igual forma, en nuestro programa de simulación de inteligencia artificial, 
el ordenador decide sus movimientos de una forma que a nosotros nos parece- 
ría muy repetitiva. Aparte de esto, juega extremadamente bien, y es muy difícil 
(casi imposible) ganarle. Trabaja asignando un valor a cada posible movimiento, 
e incrementa este valor cuando al examinar el tablero alrededor de esa posición 
encuentra otra de sus piezas que le puede llevar a la victoria. A continuación 
selecciona el movimiento con un valor mayor. 

Cuando tú estás decidiendo tu movimiento, simplemente miras al tablero, 
miras a ver si hay peligro de que el ordenador complete una línea de cuatro, y 
si es así intentas bloquearle, o seleccionas un movimiento que tú crees que te 
puede ayudar a conseguir la victoria. 

La lección está clara. Cuando escribas tus propios programas de inteligencia 
artificial, mira el resultado que quieres obtener, en lugar de intentar imitar tu 
proceso de deducción en esa situación. 

Veamos nuestro programa CONECTA CUATRO en acción. Introduces tu 
movimiento como un número entre uno y ocho, y el ordenador automáticamen- 
te coloca tu ficha (una letra “o”) en la posición más baja de la columna indicada 
por el número que tecleaste. Las fichas del ordenador se representan por la 
letra “M”: 


L 


A s.«MOs ss ..MoMo.. 
Fr = 12345678 123456578 12345678 
[] TU MOVIMIENTO TU MOVIMIENTO TU MOVIMIENTO 
74 26 75 
==. MH... os 
2 aaa aaa las MM 
O yl .«..MOO..+. ...MOO.. 
= ..MoMOD.. ..MoMO.. . MOMO... 
1 12345678 12345678 12345678 
2%, TU MOVIMIENTO TU MOVIMIENTO TU MOVIMIENTO 
25 27 27 


$ 


....MM.. 
. « .MO0O0. 
..MoMo.. 


12345678 0 

HE GANADO !!! al 

Aquí la victoria se ha producido en la diagonal que va desde el fondo de la 
columna tres hasta la columna seis. 


Teclea este programa cuando quieras ver un ejemplo de inteligencia artificial 
en acción: 


REM CONECTA CUATRO 
REM 
CLS 
PRINT 
PRINT 
PRINT "CONECTA CUATRO” 
PRINT 
PRINT "INTRODUCE TU MOVIMIE 
NTO COMO UN NUMERO ENTRE 1 Y 8. 
TECLEA O PARA VOLVER 
A EMPEZAR. " 
100 FOR F=1 TO 1000: NEXT F 
110 DIM A$(15,15): DIM B(15,2) 
120 LET FLAG=0 
130 REM CAMBIA LA SIGUIENTE LIN 
EA CON LOS SIMBOLOS QUE DESEES. 
140 LET C$="M": LET H$="0":z REM 
M PARA EL ORDENADOR 
150 FOR F=5 TO 12 
160 LET B(F,1)=10 
170 NEXT F 
FOR F=5 TO 10 
FOR G=5 TO 12 
LET A$S(F,G)="." 
NEXT G 
NEXT F 
A AAA 
REM ACEPTA MOVIMIENTO JUGAD 


O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
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250 GO SUB 430 

260 PRINT : PRINT "TU MOVIMIENT 
Do 

270 INPUT A: LET A=A+4 

280 IF A=4 THEN RUN 

290 IF A<S OR A>12 THEN GO TO 


300 LET L=4 

310 IF A$(L+1,A)<>"." OR L=10 T 
HEN GO TO 340 

320 LET L=L+1 

330 GO TO 310 

340 IF L=4 THEN GO TO 270 

350 LET A$(L,A)=H5$ 

360 LET B(A,1)=B(A,1)-1 

370 GO SUB 430 

375 GO SUB 1000 

380 GO SUB 560 

390 GO SUB 430 

400 GO TO 260 

410 REM 3314363646364 III IE IE MIE II IE HE 
420 REM IMPRIME TABLERO 

430 CLS 

440 FOR F=5 TO 10 

450 FOR G=5 TO 12 

460 PRINT A$(F,G)5 

470 NEXT G 

480 PRINT 

490 NEXT F 

500 PRINT "12345678" 

510 PRINT 

520 IF FLAG=1 THEN PRINT "HE G 
ANADO! !!":z STOP 

530 RETURN 

940 REM 31-31363636-3 -36-2-HHH ME TENE IE IE REI IEA 
350 REM MOVIMIENTO DEL ORDENADO 
R 

560 PRINT "MI MOVIMIENTO..." 
570 LET MV=0 

583 FOR F=5S TO 12 

590 LET B(F,2)=0 

600 NEXT F 

610 FOR F=5 TO 12 

620 FOR X=-1 TO 1 

630 FOR Y=-1 TO 1 


O 


O 


2. SN O, Le Qs O O 1O- SO Y 


o. oO 


O 


OQ. 0 O" Y 


O". Y ¿O O MO O O: O 4Q 


O 


O 


640 
650 
AS (B 
480 


=H$ 
840 
LE 
850 
860 

=H$ 
870 
880 
890 
990 
910 
920 
930 


IF B(F,1)=0 THEN (GOD TO 700 
IF AS(B(F,1)+X,F+Y)=" " OR 
(F,1)+X,F+Y)="." THEN GO TO 


IF AS(B(F,1)+X,F+Y)=H$ THEN 
sUuB 810 

IF AS(B(F,1)+X,F+Y)=0$ THEN 
SUB 910 

NEXT Y 

NEXT X 

NEXT F 

LET P=0 

FOR F=5 TO 12 

IF B(F,2)>P THEN LET P=B(F 
LET N=F 

NEXT F 

LET A=N: LET L=B(N,1) 

LET AS(B(N,1),N)=C5$ 

LET B(N,1)=B(N, 1)-1 

LET N=0 

LET P=0 

GO SUB 1000 

RETURN 

REM 44H H A 6 IDE DE DE DE DE DE TE IE DE IE IE IE IE TEJE 
LET MV=2 

LET Mi=MV 

IF AS(B(F,1)+(X*2) ,F+(Y*2)) 
THEN LET MV=MV+10 

IF AS(B(F,1)-X,F-Y)=H$ THEN 
T MV=MV+20 

IF MV<>M1+10 THEN GO TO 870 
IF AS(B(F,1)+(X*3),F+(Y*3)) 
THEN LET MV=MV+1000 

LET B(F,2)=B(F,2)+MY 

LET Mi=0 

RETURN 

REM III IEA MI E DE E IE IE IE IE E DE 
LET MV=2 

LET Mi=MV 

IF AS(B(F,1)+(X*2),F+(Y*2)) 


=C$ THEN LET MV=MV+9 


7940 


IF AS(B(F, 1)-X,F-Y)=C$ THEN 


LET MV=MV+20 


950 
960 


IF MV<>M1+9 THEN GO TO 970 
IF AS(BIF,1)+(X3),F+(V%3)) 
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=C5$ 
970 
980 

1000 


1010 

LAS 
10920 
1030 
1040 
1050 
1060 
1070 


+CODE (A$ (L+V, A+H) ) 


1080 
1090 


oO 2000 


1095 


FLAG=1 


1100 
1110 
1120 
2000 
2010 


OD !!!"*"PERO NO CREO QUE SEAS CA 
PAZ"” "DE HACERLO DE NUEVO. " 


2020 


TRA VEZ "505 


2030 
2040 
2050 
3000 
3010 
3011 
3012 
3013 
3020 
3021 
3022 
3023 
3030 
3031 
3032 
3033 


THEN LET MV=MV+2000 


LET B(F,2)=B(F,2)+MV 

RETURN 

REM MIRA SI EL JUGADOR HA 
GANADO 

REM SOLO HAY QUE COMPROBAR 

COMBINACIONES CON A$(L,A) 

RESTORE 3000 

FOR D=1 TO 3 

FOR B=0 TO 3 

LET TOT=0 

FOR E=1 TO 4 

READ Hz READ Vaz LET TOT=TOT 


NEXT E 
IF TOT=4*CODE H$ THEN GO T 


IF TOT=4*CODE C$ THEN LET 


NEXT B 

NEXT D 

RETURN 

REM HA GANADO EL JUGADOR 
PRINT "ESTA BIEN. HAS GANAD 


INPUT "QUIERES INTENTARLO O 


IF 0$="S" THEN RUN 

IF O$="N" THEN STOP 

GO TO 2020 

REM IMA 16M IEEE MEME IE III 


DATA -3,0,-2,0,-1,0,0,0 
DATA -2,0,-1,0,0,0,1,0 
DATA -1,0,0,0,1,0,2,0 

DATA 0,0,1,0,2,0,3,0 

DATA -3,-3,-2,-2,"1,-1,0,0 
DATA -2,-2,-1,-1,0,0,1,1 
DATA -1,-1,0,0,1,1,2,2 
DATA 0,0,1,1,2,2,3,3 


DATA -3,3,-2,2,-1,1,0,0 
DATA -2,2,-1,1,0,0,1,-1 
DATA -1,1,0,0,1,-1,2,-2 
DATA 0,0,1,-1,2,-2,3,-3 


o oO 


O. O O. 8 Q +0 


O QQ 0 0 


Si quieres aprender más sobre inteligencia artificial y sistemas expertos, 
puede que estés interesado en otros libros que he escrito sobre este tema: 


— Inteligencia artificial: conceptos y programas. 
— Sistemas expertos. 


Ambos se han publicado por la misma editorial. 
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La máquina 
de ajedrez de 
Torres Quevedo 


En 1890 se hizo en España el primer intento conocido de hacer una 
máquina real que jugara al ajedrez. El científico Torres Quevedo hizo un pe- 
queño dispositivo que era capaz de jugar el final de rey y torre contra rey, 
llevando la máquina las fichas con la torre. La máquina era siempre capaz de 
dar mate. 

Tras leer sobre la máquina de Quevedo en el fascinante libro Chess and 
Computers, de David Levy (Computer Science Press, Inc., Potomac, Maryland, 
1976), decidí escribir un programa que pudiera imitar el comportamiento de esta 
máquina. La máquina se podía mover de seis formas distintas, y este programa 
te indica cuál de estos movimientos se usa en cada caso. 

Los movimientos incluyen simplemente mover la torre horizontalmente si el 
rey negro está en la misma zona que la torre; y mover la torre un cuadrado 
horizontalmente si el rey negro no está en la misma zona que la torre, cuando 
la distancia vertical entre los dos reyes es de dos cuadrados y el número de 
cuadrados que distan horizontalmente es impar. 

Verás que el ordenador hace una rápida evaluación de la situación. Aquí lo 
tienes en acción. Tu llevas sólo un rey (el signo r) y el ordenador lleva un rey 
(con el signo “R”) y una torre (con la “T”): 
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HE UTILIZADO EL MOVIMIENTO 1 


ABCDEFGH 
8: aii 8 
ESTARE 7 
Do .. 6 
A A - A 
Ch caja ara ia E 
E 3 
Die 2 
ST 1 

ABCDEFGH 


MUEVES A (LETRA,NUM.)7?A2 


HE UTILIZADO EL MOVIMIENTO 1 


ABCDEFGH 
OR RE 8 
Y aaa 7 
aii ias 6 
A > AR 
O an 
Ta oa O 
O E 2 
Doa 1 

ABCDEFGH 


MUEVES A (LETRA,NUM. )?B2 


HE UTILIZADO EL MOVIMIENTO 1 


ABCDEFGH 


rNy+-+uo0oJOo 
+ 
0 
u 


ABCDEFGH 


MUEVES A (LETRA,NUM.)?C2 


HE UTILIZADO EL MOVIMIENTO 1 


ABCDEFGH 
Dd ia 8 
DAS 7 
A 6 
O > 
LS 4 
dana 3 
O ne 2 
Diane 1 

ABCDEFGH 


MUEVES A (LETRA,NUM. )?D2 


HE UTILIZADO EL MOVIMIENTO 1 


ABCDEFGH 
Diao 8 
TAME aa E 
Oda 6 
A E AE 
E AA 4 
Di 3 
O as. TO 
Las L 

ABCDEFGH 


MUEVES A (LETRA+,NUM. )?E2 


HE UTILIZADO EL MOVIMIENTO 1 


ABCDEFGH 


ABCDEFGH 


MUEVES A (LETRA,NUM.)?F2 


Todas se traducen de igual forma. El último es: 


e HE UTILIZADO EL MOVIMIENTO 1 
——— ABCDEFGH 
A 8 
AA 7 
Pp) Ls ASES 6 
) S inanflciz 3 
A O” 
A 
HF] A T.. 2 
e es 
¡CA ABCDEFGH 


MUEVES A (LETRA,NUM.)?F1 


HE UTILIZADO EL MOVIMIENTO 1 


ABCDEFGH 
P) — e 
¿A E a ed 
E. a . 6 
S Rao 0 
P) ii Ti 
da ias 3 
A O OS e 
Lara Pra 

mn” =] ABCDEFGH 


[) MUEVES A (LETRA,NUM.)?2F 


106 REM MAQUINA DE AJEDREZ 
20 GO SUB 9000: REM INICIALIZA 
CION 
30 GO TO 2000 
499 REM 4031340 I IE IEA HI IE A MIE ME IEA AE 
500 REM PONER LIMITE SUPERIOR 
510 IF INT (T/10)=INT (RB/10)+1 
THEN RETURN 
520 IF T-10=RN OR T-21=RB OR T- 


o.0o0 O 


100 


o Oo 


O 


O 


O- Q -r -u 


19=RB OR T-11=RB OR T-9=RB THEN 
GO SUB 610: GO TO 510 

540 LET T(T)=46: LET T=T-10: LE 
T T(T)=CODE "T"sz LET Sli=1: LET M 
OVI=1 

550 GO SUB 4000: GO TO Si0 

599 REM 3616030 I II ME IE REMERA 
600 REM MOV. HORIZONTAL, COMPRO 
BANDO QUE NO SE CHOCA CON RN 

610 LET CT=T-INT (T/10)*10 

620 LET DIR=1: IF CT>4 THEN LE 
T DIR=-1 

630 IF T+DIR=RN THEN LET DIR=- 
DIR 

640 LET T(T)=46: LET T=T+DIR 
650 FOR A=1 TO 6 

660 IF T=RN OR T-INT (T/10)x*10= 
1 OR T-INT (T/10)*10=8 THEN LET 
A=7: GO TO 480 

6709 LET T=T+DIR 


680 NEXI A 
699 LET T(T)=CODE "T"z LET MOVI 
=2 


700 GO SUB 64000: RETURN 

799 REM 30d IM MEME DIEM DEM DEM IE HEHE ALE 
800 REM PREPARAR POSICION 

810 GO SUB 510 

820 IF T-11=RB OR T-9=RB THEN 
GO SUB 610: GO TO 810 

830 IF INT (RN/10)=INT (RB/10)+ 
2 THEN RETURN 

840 LET T(RN)=46: LET RN=RN-10: 
LET MOVI=3: LET T(RN)=CODE “R” 
850 GO SUB 6000: GO TO 810 

899 REM 331 d6 MM II ME III HE MEME AE IE MEME AE 
900 REM POSICION 

910 LET SI=0: GO SUB 310: IF SI 
THEN GO TO 2020 s 

920 IF T-11=RB OR T-9=RB THEN 
GO SUB 610: GO TO 2020 

930 IF ABS (RN-20-RB)<=1 THEN 
RETURN 

940 LET T(RN)=46: LET RN=RN+1 
950 IF RN-20-RB>0 THEN LET RN= 
RN-2 


O" 0 TO 10 -O- -0 0 € Sl 0.0 0 


O 


O 


101 


O 0- Or Y 


O 


E. 0% «O 0) 


O 


102 


960 LET T(RN)=CODE "R": LET MOV 
I=0 
970 GO SUB 4000: GO TO 9i0 
999 REM 3363163161404 HE DE IE II IEEE IE TEE IE IEA 
1000 REM PREPARAR RETROCESO 
1010 LET SlI=0: GO SUB 510: IF SI 
THEN GO TO 2020 
1020 IF T-11=RB OR T-9=RB THEN 
GO SUB 610: GO TO 2020 
1030 LET CRB=RB-INT (RB/10)*10 
1940 IF CRB=1 OR CRB=8 OR RB=RN- 
20 THEN RETURN 
1050 LET T(RN)=46: LET RN=RN+1 
1060 IF RN-INT (RN/10)*10—RB+INT 
(RB/10)*10>0 THEN LET RN=RN-2 
1070 LET T(RN)=CODE "R": LET MOV 
1=5 
1080 GO SUB 64000: GO TO 1010 
1099 REM 3316206162161 I6 IIED HE MH MIER IMA MEA 
1100 REM RETROCESO 
1110 LEI! Sl=0: GO SUB 510: IF SI 
THEN GO TO 2020 
1120 IF T-11=RB OR T-9=RB THEN 
GO SUB 610: GO TO 2020 
1130 LET T(T)=46: LET T=T-10: LE 
T T(T)=CODE "T"” 
1140 GO SUB 6000: LET T(RN)=46: 
LEY RN=RB+20 
1150 LET T(RN)=CODE "R": LET MOV 
1=6 
1160 GO SUB 4000: GOD TO 2040 
1998 REM e v2636 12-001 H6 IM DIME MAI MEA IE MEME 
1999 REM PROGRAMA PRINCIPAL 
2000 GO SUB 64000: REM LEE EL 
MOVIMIENTO DEL JUGADOR 
2010 GU SUB 500: REM MOV. 1 
2020 GO SUB 800: REM MOV. 3 
2030 GO sUB 900: REM MOV. 4 
2040 GU SUB 1000: REM MOV. 5 
2050 GO SUB 1110: REM MOV. 6 
5999 REM 4463133363363 -3646-3E IEA TETERA IE AE 
6000 REM IMPRIME TABLERO 
LEE MOV. JUGADOR 
MIRA SI FIN 
6100 REM LEE MOVIMIENTO 


O rr OY Y 


O a 


O 


O. “QQ Y 0 20 “O (0D 70 Y 


DT. O O O -0 0-0 00 


O 


O 


6105 GO SUB 7000 

6110 INPUT "MUEVES A (LETRA,NU. ) 
“5G$ 

6120 IF G$="F" THEN STOP 

6130 IF LEN G$<>2 OR G$( TO 1)<" 

A" OR G$( TO 1)>"H" THEN GOD TO 

6110 

6150 LET X=VAL (G$(2 TO )): IF X 

<1 OR X>8 THEN GO TO 6110 

6153 IF ABS (X-INT (RB/10))>1 TH 

EN GOD TO ¿110 

6156 IF ABS (RB-INT (RB/10)*10-C 

ODE (G$( TO 1))+64)=0 AND ABS (X 

INT (RB/10))=0 THEN GO TO 6110 

6157 IF ABS (RB-INT (RB/10)*10-C 

ODE (G$( TO 1))+64)>1 THEN GOD T 

O 6110 

6160 LET T(RB)=46: LET RB=X*10+C 

ODE (G$( TO 1))-64 

6170 LET T(RB)=CODE "r": GO SUB 

7000: LET MOVI=0 

6200 REM MIRA SI PUEDE COMERSE 

EL REY 

6210 LET FRB=INT (RB/10): LET CR 

B=RB-FRB*10 

6220 IF INT (T/10)=FRB OR T-INT 
(T/10)*10=CRB THEN GO TO 8000 

6230 IF ABS (RN-RB)<1 OR RN=RB+1 

O OR RN=RB-10 OR RN=RB+9 OR RN=R 

B-9 OR RN=RB+11 OR RN=RB-11 THEN 
GO TO 8000 

62409 RETURN 

6999 REM I-II III LEI IE HE IE REE IEA HE RELE 

7000 REM IMPRIME TABLERO 

7010 CLS : PRINT "HE UTILIZADO E 

L MOVIMIENTO "5MOVI 

7020 PRINT ?>*5TAB (8)5" ABCDEFGH" 

7030 FOR A=80 TO 10 STEP -10: PR 
INT TAB (7)5A/105 

70940 FOR B=1 TO 8 

7050 PRINT CHR$ (T(A+B))5 

7060 NEXT B: PRINT A/10 

7070 NEXT A: PRINT TAB (8)5"ABCD 

EFGH"5”*: RETURN 

7999 REM 416304 II IE IE III II II IE EH dE 


O E O Y 


O 


O 


O” Ur. Y TO > O. 0 


103 


O-Q0 4 0-0 


O 


O 


104 


8000 PRINT "HAS PERDIDO": STOP 

NI Ai 

9000 REM INICIALIZACION 

99010 DIM T(100): FOR A=1 TO 100: 

LET 1(A)=46: NEXT A 

9020 LET F=INT (RND*S)+1: LET C= 

INT —(RND*8)+1 

9030 LET RB=Fx*x10+C: REM REY 
BLANCO 

99040 LET FBIS=F+2+INT (RND*6): I 

F FBIS>8 THEN LET FBIS=8 

9050 LET RN=FBIS*10+INT (RND*7)+ 

1: REM REY NEGRO 

9060 LET FBIS=F+2+INT (RND*6): 1 

F FB1S>8 THEN LET FBIS=8 

9070 LET T=FBIS*10+INT (RND*8)+1 

s REM TORRE NEGRA 

9075 IF T=RN THEN GO TO 9060 

9080 LET T(T)=CODE "T": LET T(RB 

)=CODE "r":z LET T(RN)=CODE "R" 

9090 LET MOVI=0: RETURN 
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En el mundo 
de la política 


Como dijimos anteriormente, los programas de ordenador se pueden usar 
para simular cualquier proceso en el cual las relaciones entre los elementos del 
proceso se puedan expresar con una o más fórmulas matemáticas. Esta simula- 
ción política, WASHINGTON D.C., nos lo muestra claramente, con fórmulas 
matemáticas controlando una versión muy simplificada de la economía de 
Estados Unidos. 

Eres el desventurado ocupante de la oficina presidencial y —como pronto 
verás— la economía no está en muy buen estado. Para mantener el apoyo de la 
gente (y de la presidencia) debes realizar una gestión adecuada. Necesitas 
esforzarte para mantener el nivel de vida, tener la inflación y el desempleo en un 
nivel bajo, estimular la inversión privada, y, en general, mantener un crecimiento 
aceptable de la economía, todo al mismo tiempo. Pronto descubrirás que un 
presidente no es necesariamente una persona feliz. 

La simulación empieza con un informe del estado de la nación: 


PRESIDENTE FELIPE: TS 
SU ADMINISTRACION ESTA EN EL E 
PODER DURANTE .25 ANOS A 
dl ESTADO DE LA NACION-------- == 
POBLACION 3000819 o 


NO. DE PARADOS 300000 9% 

SALARIO ACTUAL $ 100 INFLACION S 

% 

GASTOS DEL GOB. 

EN EL ULTIMO PERIODO $M O 

COSTE DEL DESEMPLEO $M 118 
INGRESOS POR IMPUESTOS +M O 

PRESUPUESTO: 
SUPERAVIT(+)/DEFICIT(-) $M O 

PRODUCTO NACIONAL BRUTO $Mm 440 


Jo 


E 
E 
HH 
Z 
< 
m 
TD 
169] 
ny 
O 
Z 
TU 
E 
[00] 
r 
-=i 
(9) 
D 
Oo 
18) 
pa 
$ 
<< 
mM 
108) 
o 


Cada ejecución empieza con una población de 300000 y una tasa de 
desempleo del 10 por 100. A continuación se te pide que decidas los gastos del 
gobierno, el costo de los salarios y la política de inmigración de tu adminis- 
tración: 


OK, PRESIDENTE FELIPE... 
INTRODUCE LOS GASTOS DEL GOB. $M 
102 
INTRODUCE EL COSTE 
DE LOS SALARIOS $M 41 
ESTA SU ADMINISTRACION EN FAVOR 
DE LA INMIGRACION 
EN ESTE PERIODO ? (S/N) 

OK...N 


00 


Al final de mi segundo período en la oficina, observé que mientras que tenía 
bajo control la inflación y el desempleo, ¡me había hecho con un déficit presu- 
puestario de 69 millones de dólares! La inversión pública (y, por tanto, me 
imagino, la confianza de la población) se ha incrementado, sin embargo, desde 
236 millones en el primer período a más de 257 en este momento. Decido 
aumentar ligeramente el gasto: 


PRESIDENTE FELIPE: 
SU ADMINISTRACION ESTA EN EL 
PODER DURANTE .5 ANOS 


0 


POBLACION 3001638 

NO. DE PARADOS 287879 9% 
SALARIO ACTUAL $ 41 INFLACION 9% 
GASTOS DEL GOB. 


1) 


108 


EN EL ULTIMO PERIODO $m 102 
COSTE DEL DESEMPLEO $mM 11.8 
INGRESOS POR IMPUESTOS $M 44.4 
PRESUPUESTO: 
SUPERAVIT(+)/DEFICIT(-) $M-69.4 
PRODUCTO NACIONAL BRUTO $Mm 449.2 


] 
¡A 


OK, PRESIDENTE FELIPE... 
INTRODUCE LOS GASTOS DEL GOB. $M 
107 

INTRODUCE EL COSTE 

DE LOS SALARIOS $M 43 


L) 


También he decidido permitir la entrada de una parte de las masas ham- 
brientas y cansadas del mundo en esta tierra de mieles y déficits presupues- 


tarios: 


Al final de mi primer año, el déficit ha crecido a 216 millones, y el nivel d 


vida se ha 


ESTA SU ADMINISTRACION EN FAVOR 
DE LA INMIGRACION 
EN ESTE PERIODO ? (S/N) 

0K...S 
CUANTOS INMIGRANTES PERMITIRA 
QUE ENTREN EN EL PAIS ? 
71000 


O 


incrementado en un 12 por 100: 


PRESIDENTE FELIPE: 
SU ADMINISTRACION ESTA EN EL 
PODER DURANTE 1 ANOS 


ú 


POBLACION 3004277 
NO. DE PARADOS 272309 9% 
SALARIO ACTUAL $ 46 INFLACION 9% 
GASTOS DEL GOB. 

EN EL ULTIMO PERIODO $M 111 
COSTE DEL DESEMPLEO $M 12.5 pS 
INGRESOS POR IMPUESTOS $M 50.2 lu 
PRESUPUESTO: 


00 


8 


SUPERAVIT(+)/DEFICIT(-) $M-216. 
7 

PRODUCTO NACIONAL BRUTO $M 486.2 
CAMBIO EN EL NIVEL DE VIDA 12% 


L) 


a 
e] 
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< 
m 
D 
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a 
O 
Zz 
TU 
c 
[09] 
[e 
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DK, PRESIDENTE FELIPE... 
INTRODUCE 1.0S GASTOS DEL GOB. $M 
120 
INTRODUCE EL COSTE 
DE LOS SALARIOS $M 65 
ESTA SU ADMINISTRACION EN FAVOR 
DE LA INMIGRACION 
EN ESTE PERIODO ? (S/N) 

OK...N 


0D 


En cuanto vuelvo la cabeza tengo que evitar una nueva crisis. Las cosas 
empezaron a ponerse realmente difíciles a lo largo de mi segundo año de 
mandato: 


PRESIDENTE FELIPE: 


SU ADMINISTRACION ESTA EN EL 
PODER DURANTE 1.759 ANOS 


1] 


POBLACION 3008238 

NO. DE PARADOS 377324 12% 
SALARIO ACTUAL $ 646 INFLACION 12 

% 

GASTOS DEL GOB. 

EN EL ULTIMO PERIODO $m 125 

COSTE DEL DESEMPLEO $m 24.9 
INGRESOS POR IMPUESTOS $M 69.4 

PRESUPUESTO: 
SUPERAVIT(+)/DEFICIT(-) $M-436. 

8 

PRODUCTO NACIONAL BRUTO $M 866 
CAMBIO EN EL NIVEL DE VIDA 13% 


L] 
Y) 


OK, PRESIDENTE FELIPE... 


— 
—) 
o 


El resultado es inevitable. Se me ha acabado el tiempo: 


INTRODUCE LOS GASTOS DEL GOB. $M 
126 

INTRODUCE EL COSTE 

DE LOS SALARIOS $m 67 


PRESIDENTE FELIPE, 

LA LINEA ECONOMICA SEGUIDA POR 

SU ADMINISTRACION HA LLEVADO A 

UN INACEPTABLE NUMERO DE PARADOS 

LA FALTA DE CONFIANZA EN SU 

ADMINISTRACION ES TAL QUE SE LE 

HA PEDIDO QUE RENUNCIE... 

EL VICE-PRESIDENTE PASA A OCUPAR 

LA OFICINA OVAL 

HAS SIDO PRESIDENTE POR 2.25 ANO 

5 

DURANTE TU MANDATO, LA POBLACION 

CRECIO 9059 

LA TASA DE DESEMPLEO PASO A SER 
17% 

Y EL GRADO DE INFLACION 17.4% 

EL NIVEL DE VIDA CAMBIO 17% 

Y EL BALANCE PRESUPUESTARIO 

FUE $M -597.5 


= 


L) 


r 


Ñ 
ES, 
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Po 
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= 
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Este es un programa que puedes modificar fácilmente. Cambia, por ejemplo, 
los ingresos que obtienes de los impuestos, para alterar radicalmente la simula- 
ción. También puedes modificar cualquiera de los parámetros que intervienen 
en esta simulación. 

La línea 50 controla el crecimiento de la población de un período a otro. Si 
se pusiera un incremento mayor en esta línea, sería mucho más difícil mantener 
bajo control el nivel de parados. 

He sido muy generoso con el uso de las órdenes REM en este programa, 
para que sea relativamente fácil descubrir cuál es la variable que interesa 
modificar. A continuación tienes las principales, tal como se listan en la sección 
de inicialización del programa: 


1150 REM 331-364 36-36 36-36-1-36-16 36-16 36 16 36 36 16-16-16 363€ 


1160 REM INICIALIZACION 


1170 CLS 
11809 RANDOMIZE 
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La parte del programa que realiza todos los cálculos es fácil de entender, 
una vez conozcas la misión de las variables principales: 


490 REM 
500 REM 
510 LET 
520 LET 
1P/1000) 
530 LET 


O: QQ 


O 
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1190 LET ML=1000*1000 
O 1200 LET P=3x*ML: REM POBLACION 
1210 LET U=P/10: REM DESEMPLEO 
E 1220 LET IV=236: REM INVERSION 
O! 1230 LET GE=118: REM GASTO DEL G 
OVIERNO 
1240 LET GU=0: REM COSTE DEL DES 
Os EMPLEO 
1250 LET GlI=0: REM INGRESOS POR 
IMPUESTOS 
O! 1260 LET WN=100: REM NUEVOS SALA 
: RIOS 
1270 LET WO=100: REM ANTIGUOS SA 
O: LARIOS 
E 1280 LET IP=5: REM TANTO POR CIE 
NTO DE INFLACION 
O | 1290 LET GDP=440: REM PRODUCTO N 
ACIONAL BRUTO 
O 1300 LET AGDP=440: REM BASE ANUA 
L DE PNB 
: 1310 LET RGDP=440: REM PNB REAL 
1320 LET CN=354: REM CONSTANTE E 
O | CONOMICA (USADA A LO LARGO DE LA 
SIMULACION) 
O 1330 LET Z=1: LET GAME=0: LET FL 
AG=0 
1340 LET Y=0: REM ANO 
o! 1350 PRINT "INTRODUCE TU NOMBRE" 
1360 INPUT As 
1365 LET BD=0 
o! 1370 RETURN 


MEMBER IO ME RAI MEME IMEIE MI 
CALCULOS 

CN=CN+ (CN*IP/100) 

U=P+* (GE+ IV) / (CN 10) +Pr( 


GU=U*WN/ML: REM COSTE D 


EL DESEMPLEO 


O” O. DO 


o. oO 


O. O Q'% 0 


540 LET GI=(((P-U)*WN+*. 4) /ML) : 
REM INGRESOS POR IMPUESTOS 

550 LET BD=BD+GI-GU-GE: REM DEF 
ICIT PRESUPUESTARIO 

560 LET AGDP=AGDP+*(1+(1P/100)) 
570 LET GDP=GE+IV+ ( (P-U) *WN/ML) 
580 LET RGDP=GDPx440/AGDP 

590 LET IP=((GE+IV) /CN*. 1+(WN/W 
0)/100)x*100 

600 LET IV=(CN*657)/(1P*IP) 

610 LET WO=WN 

620 LET Z=Z+1: IF Z>4 THEN LET 
Z=1: LET Y=Y+1 

630 RETURN 

640 REM 33-26-3636 -36-3616-M-AEIEM DIE IE DEE MIME MIE AE 
650 REM COMPRUEBA EL DEFICIT PR 
ESUPUESTARIO 

660 IF BD>-1000 THEN RETURN 
670 LET GAME=1 

680 LET FLAG=1 

690 RETURN 

700 REM 3363-1361 -26-36-M-26-I6H III III IE IEA 
710 REM COMPRUEBA EL NIVEL DE V 
IDA 

720 IF Y<.75 THEN RETURN 

730 IF INT ((2*((RGDP/AGDP)*100 
)-100)/3)>-15 THEN RETURN 

740 LET GAME=1 

750 LET FLAG=2 

760 RETURN 

770 REM 36346363 36 3-16 3-36 36-36 36 36 36-36 36-31-36 3-36 16-364 
780 REM COMPRUEBA LA TASA DE IN 
FLACION 

790 1F IP<i5 THEN RETURN 

800 LET GAME=1 

810 LET FLAG=3 

820 RETURN 

830 REM I-36-3-36 36 36 36-36-3636 36-36 3-36 3E-H-3E-H-3E-36 36H dE 
840 REM COMPRUEBA EL DESEMPLEO 
850 IF INT (U*x100/P)<15 THEN R 
ETURN 

860 LET GAME=1 

870 LET FLAG=4 

880 RETURN 

890 REM 36-36-46 36-36-16 36-36 36 36 36 1 36-16-36 3-3 36-36 36-36 36-36 


Ox O 30" “O OL 0 -O 0 


Di QQ O 
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Aquí tienes el listado completo del programa WASHINGTON D.C.: 
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REM WASHINGTON D.C. 
GO SUB 1160: REM INICIALIZA 


30 REM RIIIE HEM IA III EIA 

40 REM BUCLE PRINCIPAL 

50 LET P=INT (P+(P*273/ML)) 

60 GO SUB 160: REM IMPRESION 

70 GO SUB 510: REM CALCULO 

80 REM AHORA SE COMPRUEBA EL 
FIN DEL JUEGO 

90 GO SUB 710: REM NIVEL DE VI 


100 GO SUB 780: REM GRADO DE IN 


110 GO SUB 840: REM DESEMPLEO 
120 IF GAME=1 THEN CLS : GO TO 


130 GO TO 50 

140 REM 3326146 16 36-36-30 16-36-3636 3636-36-16 HE IHE 16-30 

150 REM IMPRESION 

160 CLS 

170 PRINT "PRESIDENTE "5A$3":" 

180 PRINT "SU ADMINISTRACION ES 
TA EN EL PODER DESDE "5Y+Z/45 
” ANOS" 

190 PRINT  "——---==============-- 


220 PRINT "POBLACION "5P 
230 PRINT "NO. DE PARADOS "5 INT 
(qw" "5 INT (100x*U/P)5"Z" 
240 PRINT "SALARIO ACTUAL $”sWwO 
3” INFLACION "5INT (1P)5"Z" 
250 PRINT "GASTOS DEL GOV. 
EN EL ULTIMO PERIODO 
$M "5GE 
2606 PRINT "COSTE DEL DESEMPLEO 
$M "5INT (10*xGU)/10 
270 PRINT "INGRESOS POR IMPUEST 


O. E Y 


O 


O 


O” O 0 O 0 O: 0: -0 


o. 0 O 


O 


O 


OS $M "5INT (GI*10)/10 
280 PRINT "PRESUPUESTO: 
SUPERAVIT (+) /DEFICI 
T(—-) $M "5INT (BD*10)/10 
290 PRINT "PRODUCTO NACIONAL BR 
UTO $M "5 INT (GDP*10)/10 
300 IF Y+Z/4>.5 THEN PRINT "CA 
MBIO EN EL NIVEL DE VIDA "5 INT (€ 
(2% ( (RGDP/AGDP) *100)-100)/3)33"%" 
310 PRINT "== ========-== 
320 PRINT "INVERSION PUBLICA ”; 
Y53" Q "3253" $M "5INT (IV*10)/10 
330 PRINT M-————————— === 


340 PRINT "OK, PRESIDENTE "5A$;5 


350 INPUT "INTRODUCE LOS GASTOS 

DEL GOV. $M"5GE 

360 INPUT "INTRODUCE EL COSTE 
DE LOS SALARIOS s$Mm " 

3 WN 

370 PRINT "ESTA SU ADMINISTRACI 

ON EN FAVOR DE LA INMIGRACION 
EN ESTE PERIODO ? (S 


390 LET X$=INKEYS$ 

400 IF X$<>"S" AND X$<>"N" THEN 
GO TO 3909 

410 PRINT TAB (20)5"0K... "3X$ 
420 FOR H=1 TO 1000: NEXT H 

430 IF X$<>"S" THEN RETURN 

440 PRINT "CUANTOS INMIGRANTES 

PERMITIRA QUE ENTREN EN EL PAI 

Ss o. 

450 INPUT M 

460 IF M<0 THEN GO TO 450 

470 LET P=P+M 

480 RETURN 

490 REM 46363363 36-36-36 36-16 36-136 1 36 3-3EH EIA E 
500 REM CALCULOS 

510 LET CN=CN+(CN*1P/100) 

520 LET U=P+*(GE+IV) / (CN*10) +P+ ( 

1P/1000) 

530 LET GU=U*WN/ML: REM COSTE D 


O co O 0 


Oo 0 


O O O 0 


O. El “O: "O 50 
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O 4 O O O .0 -O CO 0 


O 


O 
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EL DESEMPLEO 

540 LET GI=(((P-U)%WN+*. 4) /ML) : 
REM INGRESOS POR IMPUESTOS 

550 LET BD=BD+GI-GU-GE: REM DEF 
ICIT PRESUPUESTARIO 

560 LET AGDP=AGDP+*(1+(1P/100)) 
570 LET GDP=GE+IV+ ( (P-U) WN /ML) 
580 LET RGDP=GDP+4409/AGDP 

590 LET IP=((GE+1V) /CN+*. 1+(WN/W 
0)/100)x*100 

600 LET IV=(CN+*67)/(1P*1P) 

610 LET WO=WN 

620 LET Z=Z+1: IF Z>4 THEN LET 
Z=1: LET Y=Y+1 

630 RETURN 

640 REM I36-3-336IEIEI AAA A MIDE IE IE III 
650 REM COMPRUEBA EL DEFICIT PR 
ESUPUESTARIO 

660 IF BD>-1000 THEN RETURN 
670 LET GAME=1 

680 LET FLAG=1 

690 RETURN 

A NN ee 
710 REM COMPRUEBA EL NIVEL DE V 
IDA 

720 IF Y<.75 THEN RETURN 

730 1F INT ((2*((RGDP/AGDP)*100 
)-100)/3)>-15 THEN RETURN 

740 LET GAME=1 

750 LET FLAG=2 

760 RETURN 

AMI AA 
780 REM COMPRUEBA LA TASA DE IN 
FLACION 

790 IF IPX<15 THEN RETURN 

800 LET GAME=1 

810 LET FLAG=3 

820 RETURN 

830 REM 3363-36-36 36 3 3-36-3-3-3E-E-IE-IE-IIEIE IICA 
840 REM COMPRUEBA EL DESEMPLEO 
850 IF INT (U*100/P)<15 THEN R 
ETURN 

860 LET GAME=1 

870 LET FLAG=4 

8809 RETURN 


O. O 0. O 


¿SN O SS A O 


O O 0 


O O - O O EE O O AE E «O ¡O 50. O 


O 


O 


890 REM 20-26-16 -26-26-HMII MIRIAM ITEM NA 

900 REM FIN DEL JUEGO 

910 PRINT "PRESIDENTE "3A$3"," 

920 PRINT "LA LINEA ECONOMICA S 
EGUIDA POR" 

930 PRINT "SU ADMINISTRACION HA 

LLEVADO A UN INACEPTABLE "5 

940 IF FLAG=1 THEN PRINT "DEFI 
CIT PRESUPUESTARIO" 

950 IF FLAG=2 THEN PRINT "NIVE 
L DE VIDA” 

960 IF FLAG=3 THEN PRINT "GRAD 
O DE INFLACION" 

970 IF FLAG=4 THEN PRINT "NUME 
RO DE PARADOS" 

990 PRINT "=== 
1000 PRINT "LA FALTA DE CONFIANZ 
A EN su" 

1010 PRINT "ADMINISTRACION ES TA 
L QUE SE LE" 

1020 PRINT "HA PEDIDO QUE RENUNC 
IE...” 

1030 PRINT "EL VICE-PRESIDENTE P 
ASA A OCUPAR" 

1040 PRINT "LA OFICINA OVAL" 
1050 FOR H=1 TO 1000: NEXT H 
19060 PRINT M--————————————————— 
1070 PRINT "HAS SIDO PRESIDENTE 
POR "3Y+(Z*.25)3" ANOS" 

10980 PRINT "DURANTE TU MANDATO, 
LA POBLACION" 

1090 PRINT "CRECIO "5P-3x*ML 

1100 PRINT "LA TASA DE DESEMPLEO 

PASO A SER "s5INT (U*i00O0/ 
P)/105"7Z" 

1110 PRINT "Y EL GRADO DE INFLAC 
ION "53 INT (10*IP)/105"%Z" 

1120 PRINT "EL NIVEL DE VIDA CAM 
BIO "5 INT ((2*((RGDP/AGDP) *100)- 
190)/333"zx" 

1130 PRINT "Y EL BALANCE PRESUPU 
ESTARIO FUE $M"5 INT (10%BD)/ 
10 


O O: 0 0 


O O + 0 


O 
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1140 STOP 
1150 REM 3163163616 16-26 36-36-1616 16-11-36 36 36-36-1616 30 363€ 
1160 REM INICIALIZACION 

1170 CLS 

1180 RANDOMIZE 

1190 LET ML=1000*1000 

1200 LET P=3*ML: REM POBLACION 
1210 LET U=P/10: REM DESEMPLEO 
1220 LET IV=236: REM INVERSION 
1230 LET GE=118: REM GASTO DEL G 
OVIERNO 

1240 LET GU=0: REM COSTE DEL DES 
EMPLEO 

1250 LET REM INGRESOS POR 
IMPUESTOS 

1260 LET WN=100: REM NUEVOS SALA 
RIOS 

1270 LET WO=100: REM ANTIGUOS SA 
LARIOS 

1280 LET IP=5: REM TANTO POR CIE 
NTO DE INFLACION 

1290 LET GDP=440: REM PRODUCTO N 
ACIONAL BRUTO 

1300 LET AGDP=440: REM BASE ANUA 

L DE PNB 

1310 LET RGDP=440: REM PNB REAL 
1320 LET CN=354: REM CONSTANTE E 

CONOMICA (USADA A LO LARGO DE LA 
SIMULACION) 

1330 LET Z=1: LET GAME=0: LET FL 
AG=0 

1340 LET Y=0: REM ANO 

1350 PRINT "INTRODUCE TU NOMBRE" 
1360 INPUT AS 

1365 LET BD=0 

1370 RETURN 
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El Mercado 
de Valores 


Los números que maneja un ordenador pueden representar cualquier cosa, 
desde la densidad de un gas, intrincadas reacciones subatómicas de un complejo 
experimento químico, el número de guerreros que toman parte en un ataque 
romano o la población de un pequeño pueblo inglés. Como los ordenadores se 
usaron al principio en los negocios, los números generalmente hacían referencia 
a cosas más mundanas, como estadísticas, saldos y dinero. En la simulación de 
este capítulo vamos a dejar a un lado a los romanos y vamos a volver con el 
dinero. 

Tú eres un corredor de comercio en un mercado con cinco compañías. 
Empiezas la simulación con 15000 dólares y se te pide que introduzcas el 
objetivo financiero que intentarás alcanzar durante la simulación: 


INTRODUCE TU OBJETIVO PARA ESTA 


SIMULACION == 
$15000 A $100000 de 


2250000 A, 
DEMASIADO ALTO ! 


INTRODUCE TU OBJETIVO PARA ESTA == 
SIMULACION 2 

-$16000 A $100000 sel 
2146000 
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Una vez hecho esto, aparece el estado del mercado en un día: 


O 
E) DIA 1 TU OBJETIVO ES $16000 
E A A de aba 
COMPANIA NUMERO: 
1 2 3 4 5 
Po) PROBABILIDAD DE INCREMENTO (%) 
Ll) 23 59 28 59 41 
PROBABILIDAD DE DECREMENTO (%) 
31 26 55 e 17 
3 VALOR ACTUAL POR ACCION : 
[) $1.49 $1.99 $2.49 $2.99 $3.49 
NO. DE ACCIONES EN TU POSESION 
2000 1500 1200 1000 800 
M7 BANCO $265 VALOR TOTAL $15000 
ES QUIERES VENDER ALGUNA ACCION 2? 


Un ciclo de compra y/o venta representa un día de negociación, Cada día se 
te informa sobre la subida o bajada del precio de cada acción, y basándote en 
esta información puedes decidir qué es lo que conviene comprar o vender: 


] DIA 1 TU OBJETIVO ES $14£000 
A O ARAN 
COMPANIA NUMERO: 
1 2 3 4 5 
ER PROBABILIDAD DE INCREMENTO (%) 
e 23 59 28 59 41 
¡A PROBABILIDAD DE DECREMENTO (%) 
31 26 55 8 17 
VALOR ACTUAL POR ACCION : 
'" $1.49 $1.99 $2.49 $2.99 $3.49 
[—) NO. DE ACCIONES EN TU POSESION 
2000 1500 1200 1000 800 
BANCO $265 VALOR TOTAL $15000 
"mea AA E AA RRA 
El QUIERES VENDER ALGUNA ACCION ? 
AA, DE QUE COMPANIA QUIERES VENDER ? 
OK 1 
CUANTAS DE 1 QUIERES VENDER ? 
"TR 723000 
EA NO TIENES TANTAS ! 
_—) 715000 
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COMPANIA NUMERO: 


1 2 3 4 5 
PROBABILIDAD DE INCREMENTO (%) : uN 
23 59 28 59 41 A, 
PROBABILIDAD DE DECREMENTO (%) : 

31 26 55 8 17 


VALOR ACTUAL POR ACCION : 

$1.49 $1.99 $2.49 $2.99 $3.49 

NO. DE ACCIONES EN TU POSESION 

500 1500 1200 1000 800 

BANCO $2500 VALOR TOTAL $15000 

QUIERES COMPRAR ALGUNA ACCION 2? 

DE QUE COMPANIA QUIERES COMPRAR? 
OK 4 

CUANTAS DE 4 QUIERES COMPRAR ? 

2750 


) 
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Sólo puedes comprar o vender acciones una vez cada día, luego debes elegir 
sabiamente. Después de que hagas tus decisiones, el ordenador te dirá la 
puntuación que has obtenido este día como corredor de comercio. Algunos de 
sus mensajes, que estoy seguro descubrirás, pueden ser bastante duros: 


[os] 
Usa] 
D 
mW 
pa] 
E 
(e) 
[00] 
Qu 
m 
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mn 
< 
[em] 
m 
109) 
* 
- 
os 
Oo 
je) 
Oo 


COMPANIA NUMERO: 


1 2 3 4 5 == 
PROBABILIDAD DE INCREMENTO (%) : 
51 11 43 32 35 El 
PROBABILIDAD DE DECREMENTO (%) : 

49 43 8 49 4b 
VALOR ACTUAL POR ACCION : E 
$1.49 $2.1 $2.36 $3.16 $3.49 A, 


NO. DE ACCIONES EN TU POSESION 
600 1500 1200 1750 800 
BANCO $108 VALOR TOTAL $15329.06 
TU CLASIFICACION TRAS ESTE DIA 
DE NEGOCIACION ES *?MAL? E 


ERES 
L ) 


<PULSA SPACE PARA CONTINUAR> 


pas 
N 
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Sin embargo, si perseveras, al final conseguirás tu objetivo. No te descorazo- 
nes con mensajes como SIN ESPERANZA. 


O 
Ia DIA 8 TU OBJETIVO ES $16000 
A NN AAA AE AAA AAA AAA AAA 

COMPANIA NUMERO: 

1 2 3 4 5 
PASS PROBABILIDAD DE INCREMENTO (%) 
e 18 72 89 24 32 
A, PROBABILIDAD DE DECREMENTO (Y) : 

4 25 1 9) 50 


VALOR ACTUAL POR ACCION : 

$1.53 $2.31 $2.57 $2.69 $3.68 
NO. DE ACCIONES EN TU POSESION 
2100 400 1200 1750 800 
BANCO $191 VALOR TOTAL $15103.32 
QUIERES VENDER ALGUNA ACCION ? 
DE QUE COMPANIA QUIERES VENDER 2? 


Jo 
E? E 


OK 1 

CUANTAS DE 1 QUIERES VENDER ? 
22100 

se 

A SA e a 
DIA 11 TU OBJETIVO ES $16000 

"A COMPANIA NUMERO: 

OS AP 
PROBABILIDAD DE INCREMENTO (Y) 
87 30 18 27 30 
PROBABILIDAD DE DECREMENTO (Y) 
4 50 si 44 se 


VALOR ACTUAL POR ACCION : 

$1.58 $2.44 $2.69 $2.65 $3.68 
NO. DE ACCIONES EN TU POSESION 
600 O 2400 1750 800 
BANCO $335 VALOR TOTAL $15352.79 
TU CLASIFICACION TRAS ESTE DIA 
DE NEGOCIACION ES ”SIN ESPERANZA 


<PULSA SPACE PARA CONTINUAR> 
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COMPANIA NUMERO: 


1 2 3 4 5 
PROBABILIDAD DE INCREMENTO (%) : ) 
47 6S 38 8 47 ll) 
PROBABILIDAD DE DECREMENTO (%) : 

32 7 44 25 40 


VALOR ACTUAL POR ACCION : 
$1.78 $2.5 $2.61 $2.98 $3.83 
NO. DE ACCIONES EN TU POSESION 

O 10] 2900 1750 800 
BANCO $355 VALOR TOTAL $16109.47 


HAS ALCANZADO TU OBJETIVO ! 


Jo 


El listado de EL MERCADO DE VALORES está en el siguiente capítulo. 
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El listado 
del Mercado 
de Valores 


Cuando estés dispuesto a emular a los cerebros de Wall Street, teclea y 
ejecuta el siguiente listado. No seas muy ambicioso con tus objetivos financieros 
al principio, o nunca los conseguirás. 


10 REM MERCADO DE VALORES 
20 CLS 
30 RANDOMIZE 
40 DIM S(5): DIM N(5): DIM P(5 
): DIM D(S5) 
50 LET S(1)=1.49: LET S(2)=1.9 
9: LET S(3)=2.49: LET S5(4)=2.99: 
LET S(5)=3.49 
60 LET N(1)=2000: LET N(2)=150 
O: LET N(3)=1200: LET N(4)=1000: 
LET N(5)=800 
70 LET BB=265: LET TV=15000: L 
ET Q0=15000: LET DIA=1 
80 PRINT : PRINT "INTRODUCE TU 
OBJETIVO PARA ESTA SIMULACION" 
90 PRINT TAB (8)3"$16000 a $10 
9000" 


o. oO O O 
O 0 0 


O. “E ¿El CO. O. SO LO O. Y 


O 


O 


O 
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100 INPUT OBJETIVO 

110 IF OBJETIVO<16000 THEN PRI 
NT "DEMASIADO BAJO !'": GO TO 80 

120 IF OBJETIVO>100*1000 THEN 
PRINT "DEMASIADO ALTO !'": GO TO 
80 

O TN A 

140 REM BUCLE PRINCIPAL 

150 FOR C=1 TO 5 

160 REM CAMBIA EL 55 DE LA 
LINEA SIGUIENTE PARA MODIFICAR 
EL JUEGO; 80 MUY DIFICIL, 30 MUY 
FACIL 

170 LET D(C)=INT (RND*55)+1 

180 LET P(C)=INT (RND+*(100-—D (C) 
3)3+1 

190 NEXT C 

200 GO SUB 230 

210 GO TO 460 

220 REM Id 0 dE 16 0 MIME IRE III IIA 

230 REM IMPRESION 


240 CLS 
250 PRINT "-=---=-=============--- 
260 PRINT "DIA "3DIA;" TU O 
BJETIVO ES $"50OBJETIVO 

270 PRINT "-==================-- 


280 PRINT "COMPANIA NUMERO: ” 

290 PRINT TAB (2)515TAB (8)52;53T 
AB (14)535TAB (20)545TAB (26355 

300 PRINT "PROBABILIDAD DE INCR 
EMENTO (%) :" 

310 PRINT TAB (2)5P(1)5TAB (8); 
P(2723TAB (14)5P(3)5TAB (20)5P (4) 
¿TAB (26)5P (5) 

320 PRINT "PROBABILIDAD DE DECR 
EMENTO (%) 2" 

330 PRINT TAB (2)5D(1)5TAB (8)5 
D(2)53TAB (14)53D(3)5TAB (20)5D(4) 
¿TAB (26)5D(5) 

340 PRINT "VALOR ACTUAL POR ACC 
ION :" 

350 PRINT " $"5INT (S(1)*100)/1 
003 TAB (7)5"+$"5 INT (S(2)+100)/1005 


O 


0: ¿O ¿0 SO 1 +9 


O” ¡O O 0 


Or 0 0 


O O O. 0 


O. 9 QQ) Q 


360 PRINT TAB (13)5"$"5 INT (S(3 
)*100)/1005TAB (19)5"%"5 INT (S(4 
)*100)/1005 

370 PRINT TAB (25)5"3$"5 INT” (S5(5 
)*100)*100 

380 PRINT "NO. DE ACCIONES EN T 
U POSESION :"” 

390 PRINT TAB (2)5N(1)5TAB (8)5 
N(2)5TAB (14)53N(3)5TAB (20)53N (4) 
¿TAB (26)53N(5) 

400 PRINT "BANCO $"5 INT (BB)5" 
VALOR TOTAL $"5TV 

LLO PRINT "===" "=== ======= 

420 IF TV>OBJETIVO THEN PRINT 
"HAS ALCANZADO TU OBJETIVO !'":z S 


430 RETURN 
440 REM 46-33631636-1 16 36 36 36 36 3-3 36-36 3-3 36-336 A 14 
450 REM *X* VENDER *%% 
460 PRINT "QUIERES VENDER ALGUN 
A ACCION 2" 
470 LET A$=INKEYS$ 
480 IF A$<>"S" AND A$<>"N" THEN 
GO TO 470 
490 IF A$="N" THEN GO TO 690 
300 GO SUB 230 
510 PRINT "DE QUE COMPANIA QUIE 
RES VENDER 2" 
520 LET A$=INKEYS$ 
530 IF A$<"1" OR A$>"5" THEN 6G 


oO TO 520 
340 LET C=VAL (A$) 
550 PRINT " OK "35C 


560 PRINT "CUANTAS DE "35C5" QUI 
ERES VENDER 2?" 

570 INPUT N 

580 IF N>N(C) THEN PRINT "NO T 
IENES TANTAS !": GO TO 3570 

590 REM dd II MIRE IE III AE 
600 REM AJUSTE DE VALORES TRAS 
LA VENTA 

610 LET BB=BB+S(C)%N: REM SUMA 
EL VALOR AL BANCO 

620 LET N(C)=N(C)-N: REM RESTA 


O O 00) O. DO: 50. O, 0 


O 


GO. SS O. 0-0 


O 


129 


O. O OQ O -Q 


O” O 1 O O 


O 


O 
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DE LAS ACCIONES EN TU POSESION 
630 LET TV=0: REM PONE EL VALOR 
TOTAL A CERO 
640 REM AHORA DETERMINA EL 
VALOR ACTUAL 
650 FOR C=1 TO 3 
660 LET TV=TV+N (C)*S(C) 
670 NEXT C 
680 LET TV=TV+BB: REM LO SUMA 
AL BALANCE DEL BANCO 
67909 GO SUB 230 
700 REM 3436364636 36 36 30-336 36 36-30-2-30-36 H-36 HH 
710 REM ** COMPRAR +% 
720 PRINT "QUIERES COMPRAR ALGU 
NA ACCION 2" 
730 LET A$=INKEYS$ 
740 IF A$<>"S" AND A$<>"N" THEN 
GO TO 730 
750 IF A$="N" THEN GO TO 890 
760 GO SUB 230 
770 PRINT "DE QUE COMPANIA QUIE 
RES COMPRAR?" 
780 LET A$=INKEYS$ 
790 IF A$<"1" OR A$>"5" THEN 6 


O TO 780 
800 LET C=VAL (A$) 
810 PRINT " oK "3C 


820 PRINT "CUANTAS DE "5C3" QUI 
ERES COMPRAR 2" 

830 INPUT N 

840 IF N*S(C)>BB THEN PRINT "N 
O TIENES DINERO SUFICIENTE !!": 
GO TO 830 

850 REM 430-312 226H6-30 M1 0H 160 HEHE HEHE 
860 REM AJUSTE DE VALORES TRAS 
LA COMPRA 

870 LET BB=BB-S(C)%N 

880 LET N(C)=N (C)+N 

8790 LET TV=0 

900 FOR C=1 TO 53 

910 LET TV=TV+N (C)%S(C) 

920 NEXT C 

930 LET TV=TV+BB 

940 GO SUB 230 

950 REM 4436104010 MEM IMEI MAME IAE 


O 


O: O. 07 0-0 0 QQ 10: O 


O O O: 0 


960 REM MODIFICACION DE TODOS 


1300 DATA "FENOMENAL", "EXCELENTE 
", "SUPERLATIVO" 


y l 
O | LOS INDICADORES O 
970 LET TV=0 
o 980 FOR C=1 TO 5 ! O 
990 LET K=INT (RND*100)+1 
1000 IF K<P(C) THEN LET S(C)=S( 
o! C)*(1+(P(C)/1000)) Lo 
1010 LET K=INT (RND*100)+1 
: 1020 IF K<D(C) THEN LET S(C)=S( 
4 C)/(1+(D(C)/1000)) ! O 
1030 LET TV=TV+(S(C)N(C)) 

] 1040 NEXT C ' 
O 1050 LET TV=TV+BB o 
1060 LET Q0=00*1.005 
l 1170 REM 0-43 36-336 36-36 36-136 3-36 36 36 36-36 36-36 36-36 36 1 
O: 1180 REM CLASIFICACION 6 
1190 PRINT "TU CLASIFICACION TRA 
S ESTE DIA" 
¡o 1200 PRINT "DE NEGOCIACION ES ”" "O 
I sAS; 1»... 1 
1210 PRINT : PRINT " <PULSA SPA | 
O, CE PARA CONTINUAR>" 500 
1220 IF INKEYS$<>" " THEN GO TO 

o! 1220: REM DATE CUENTA DE QUE HAY 
UN ESPACIO ENTRE LAS COMILLAS ¡O 
1230 LET DIA=DIA+1 | 

O 1240 GO TO 150 
1250 DATA "SIN ESPERANZA", "MUY M ¡ O 
UY MAL" 

o! 1260 DATA "TERRIBLE", "HORRIBLE", 
| “MAL " O 
1270 DATA "MUY ORDINARIO", "NORMA 

O | L" ! O 
1280 DATA "RAZONABLE", "NO ESTA M 
AL" 

O! 1290 DATA "CASI BIEN”, "BIEN", "MU O 
Y BIEN" 
| | 
| ] 


Si quieres modificar el grado de dificultad de esta simulación, cambia el 55 
de la línea 170. Un número menor, como mínimo 30, hace el problema más 
fácil. Y cuanto mayor es el número, como máximo de 80, más difícil es el 
programa. Si en la línea 170 pones valores menores de 30 o mayores de 80, la 
simulación no será ni remotamente realista. 
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Dirección 

de una compañía 
de automóviles 


En esta simulación se presentan algunos de los complejos procesos de 
manufactura y venta (aunque de una forma muy simplificada). El mercado 
de automóviles ha tardado sesenta años en estar saturado en Estados Unidos. 
Tú has tenido la mala suerte de haber sido designado director de una gran 
fábrica de coches. 

Para resolver la situación (y tu reputación como un gran empresario, resol- 
vedor de problemas y crisis) debes volver a asentar sólidamente la firma sobre 
una base segura. 

Llegas a la dirección justo cuando la compañía tiene un déficit anual de 
60 millones. Tu objetivo, evidentemente, es intentar sanear la compañía. 

Asi comienza: 


EN El MES O LA INDUSTRIA VENDIO ON 
50000 UE 


TIENES 12000 EMPLEADOS 


EL SALARIO MEDIO ES 22995 E 


O $m 22.9 AL MES 
AA RAM O LJ) 


Como puedes ver, las ventas totales de la industria del automóvil un mes 
antes que comience la simulación (mes 0), fueron 50 000. Empiezas la simulación 
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con tu compañía representando aproximadamente un cuarto de las ventas 
totales, es decir, alrededor de 12500 vehiculos. 

Tienes cuatro fábricas, actualmente produciendo más coches de los que son 
capaces de vender: 


MAXIMAS SALIDAS MENSUALES: 
FABRICA 1: 8900 
FABRICA 2: 3250 
FABRICA 3: 2500 
4: 16e5 


1) 


|) 
r 
D 

| 
[09] D 
D [55) 
po] 
a] mn 
[e] (02) 
D D 
+ 
[e] 
—y 
D 
Fr 
m 
n 
R 
o 
190) 
e] 
ul 


EL NIVEL DE EFICIENCIA ES 77% 
QUIERES AUMENTAR LA SALIDA S/N ? 
N 

QUIERES VENDER LA FABRICA 4 ? 

N 


A 


El salario medio de cada empleado está sobre los 23000 dólares cuando 
empieza la simulación. Este se incrementará cada tres meses, debido a la presión 
de los sindicatos para soportar la inflación. Aunque no puedes reducir los 
salarios, o negarte a aumentarlos según la tasa de inflación, puedes decidir 
cuántas personas quieres contratar o despedir y a qué precio vas a vender cada 
vehículo (cuando comienza la simulación, cada coche se vende por 12000 


a 
o 
p 
sm] 
o 
2 


EN EL MES O LA INDUSTRIA VENDIO 
50000 

TIENES 12000 EMPLEADOS 

EL SALARIO MEDIO ES 22995 

O $mM 22.9 AL MES 

CUANTOS EMPLEADOS 

QUIERES CONTRATAR 2? 

70 

Y CUANTOS QUIERES DESPEDIR 2567 
TIENES 11433 EMPLEADOS 

EL SALARIO MEDIO ES 22995 

O $Mm 22.9 AL MES 

CUAL ES EL PRECIO DE VENTA 21234 
S 


$ 


Una vez hayas contestado todas las preguntas, la simulación te informa 
sobre cómo lo has hecho: 


EN EL MES 1 LA INDUSTRIA VENDIO 


48833 P] 
A Lo) 


TIENES 11433 EMPLEADOS 
EL SALARIO MEDIO ES 22995 


O $Mm 22.9 AL MES 7 
COSTE MEDIO POR COCHE: $10192 LU) 
PRECIO MEDIO DE VENTA: $12345 

LUEGO EL BENEFICIO MEDIO: $+$e2152 


O $M 28.8 AL MES [ 
EL BENEFICIO DEL MES ES $M 45.9 —— 


8% El BENEFICIO TOTAL HASTA 


A O on 3 
TE RINDES (S/N) ? e lo) 
2N 


No está demasiado mal. Actualmente has conseguido un beneficio. El proce- 
so continúa: 


EN EL MES 1 LA INDUSTRIA VENDIO 
48833 Po) 


TIENES 10233 EMPLEADOS 
EL SALARIO MEDIO ES 22995 


O $M 19.6 AL MES E] 
COSTE MEDIO POR COCHE: $10192 _) 
PRECIO MEDIO DE VENTA: $12345 

LUEGO EL BENEFICIO MEDIO: $2152 7 

O $M 28.8 AL MES a] 
EL BENEFICIO DEL MES ES $M 4.9 —— 
£ El BENEFICIO TOTAL HASTA 


aim tdo o CAN E 
CUAL ES EL PRECIO DE VENTA ? 240 (O, 
00 

UN CAMBIO DEMASIADO GRANDE 

PARA EL MERCADO PAS] 
CUAL ES EL PRECIO DE VENTA ? 140 Eo 
00 _—)) 


EN EL MES 2 LA INDUSTRIA VENDIO 
51485 

TIENES 10233 EMPLEADOS 

EL SALARIO MEDIO ES 22995 

O $M 19.6 AL MES 

COSTE MEDIO POR COCHE: $114630 
PRECIO MEDIO DE VENTA: $14000 
LUEGO EL BENEFICIO MEDIO: +2369 
O $M 15.2 AL MES 

EL BENEFICIO DEL MES ES $M-4.4 
82 El BENEFICIO TOTAL HASTA 

LA FECHA ES $M 2.5 


ERENE 


TE RINDES (S/N) ? 
N 


] 


Y justo cuando piensas que lo tienes todo bajo control, la inflación inter- 
viene: 


LA TASA DE INFLACION EN ESTE 
PERIODO ES DEL 2.5% 
EL COSTE MEDIO DE LOS SALARIOS 
SE INCREMENTA A: 

$ 23569 POR EMPLEADO 


JO 


8 


PULSA UNA TECLA PARA CONTINUAR 


Tu siguiente mes no es muy bueno: 


EN EL MES 3 LA INDUSTRIA VENDIO 
49184 

TIENES 9743 EMPLEADOS 

EL SALARIO MEDIO ES 23569.88 

O $M 19.1 AL MES 

COSTE MEDIO POR COCHE: $11835 
PRECIO MEDIO DE VENTA: $14500 
LUEGO EL BENEFICIO MEDIO: $2664 
O $M 18.2 AL MES 


hb 


36 


EL BENEFICIO DEL MES ES $M-1 
2 El BENEFICIO TOTAL HASTA 
LA FECHA ES $M 1.5 


TE RINDES (S/N) ? 


El 


Empiezas la simulación, como has visto, con cuatro fábricas. Tienes la 
opción de vender la fábrica 4; de igual forma puedes incrementar la producción 
de cada fábrica. Descubrirás que el coste mínimo por vehículo (y, por tanto, el 
máximo beneficio al venderlo) se consigue cuando las fábricas trabajan al 85 
por 100 de su efectividad. Decidimos vender la fábrica 4 para reducir nuestras 


pérdidas: 


TUS VENTAS MENSUALES SON 5517 
ir E AS 
MAX IMAS SALIDAS MENSUALES: lu 

FABRICA 1: 8900 j 


FABRICA 2: 3250 
FABRICA 3: 2500 


FABRICA 4: 1625 Po) 
EL NIVEL DE EFICIENCIA ES 33% Y) 
QUIERES AUMENTAR LA SALIDA S/N ? 

N 

QUIERES VENDER LA FABRICA 4 ? PAN 

: LL) 
==) 


EL VALOR DE VENTA 
DE LA FABRICA 4 ES $M104 
SI LA VENDES, 


NO PODRAS VOLVER A COMPRARLA... Po) 
LA QUIERES VENDER (S/N) ? lo) 
S 


He probado esta simulación muchas veces. Y cada vez ha ocurrido lo 
mismo. Tal vez no esté preparado para conducir un negocio multimillonario: 


EN EL MES 10 LA INDUSTRIA VENDIO 
48991 

TIENES 9703 EMPLEADOS 

EL SALARIO MEDIO ES 24521.51 

O $M 19.8 AL MES 

COSTE MEDIO POR COCHE: $12418 
PRECIO MEDIO DE VENTA: $15400 
LUEGO EL BENEFICIO MEDIO: $e2981 
O $Mm 17 AL MES 


AA 


13 


< 


EL BENEFICIO DEL MES ES $M-2.8 


' 2 EL BENEFICIO TOTAL HASTA 
lo) LA FECHA ES $M 48.4 

TE RINDES (S/N) ? 
JN TRAS EL MES NUMERO DOCE 
ML) ESTAS ARRUINADO... 


QUEDAS AUTOMATICAMENTE DESPEDIDO 


Un resultado mucho mejor es, sin embargo, posible para aquellos que sean 
más inteligentes que yo: 


== ENHORABUENA | LA COMPANIA HA 
E CONSEGUIDO MAS DE $M200 


loss SE TE NOMBRA MIEMBRO DEL CONSEJO 


Aquí tienes las variables principales, tal como se las inicializa al principio de 
esta simulación: 


1630 REM 36-31-3631 36-16 36-36-36 36-36 4 13-36-36 2 36 16 36 3-36 € 
16440 REM -INICIALIZACION 

16450 CLS 

1660 RANDOMI ZE 

1570 DIM M(5): DIM Y(5) 

1480 LET NE=12000: REM NUMERO 
INICIAL DE EMPLEADOS 

1690 LET SM=22995: REM SUELDO 

MEDIO INICIAL 

1700 LET CM=11100: REM COSTE POR 
VEHICULO 

1710 LET PV=12000: REM PRECIO DE 
VENTA 

1720 LET MI=50*1000: LET MC=1010 
) 

1730 LET Y(3)=12500 

1740 LET C=0: LET M=1: LET TP=0: 
LET MS=25: LET EF=77: LET FA=16 
O: LET SF=0: LET MT=0 

1750 FOR J=1 TO 5 

1760 READ M(J) 

1770 NEXT J 

1780 RETURN 

1790 DATA 8900,3250,2500,1625,16275 
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Como puedes ver, las órdenes REM te permiten entender las fórmulas que 
se usan en esta simulación: 


220 PRINT AT 20,05 "CUANTOS EMPL 
EADOS"* "QUIERES CONTRATAR 2": IN 
PUT HE: PRINT AT 20,05: FOR Z=1 


| 1 
1 | 

O 0) UN 
TO 64: PRINT 33 NEXT Z O 
230 LET NE=NE+HE: IF HE>0 THEN 
GO TO 260 

O 240 INPUT "Y CUANTOS QUIERES DE ¡O 
SPEDIR 7?"5HE . 

O 250 LET NE=NE-HE 
260 GO SUB 650 O 
270 LET P1=PV: REM PONE EN P1 

o! EL PRECIO ANTIGUO 
| 280 INPUT "CUAL ES EL PRECIO DE O 
VENTA ?2"3PV ] 

O! 290 REM LA SIGUIENTE LINEA MIRA O 
A VER SI EL CAMBIO ES DEMASIADO 
: ACUSADO | 

O! 300 IF ABS (P1-PV)>2500 THEN P "O 
RINT "UN CAMBIO DEMASIADO GRANDE l 
"> "PARA EL MERCADO": GO TO 280 ] 

O 310 CLS Lo 
3209 PRINT : PRINT : PRINT | 
330 LET MI=INT (RND*4000)+48+*10 

O 00: REM VENTA MENSUAL DE LA O 
] INDUSTRIA | 
340 LET C=C+1: REM CUENTA EL 

O; NUMERO DE MESES NO) 
350 IF C<3 THEN GO TO 470 
360 LET M=INT (RND*10+1)/4: REM 

O INFLACION 10 
370 CLS 
380 PRINT "LA TASA DE INFLACION 

O.! EN ESTE"” "PERIODO ES DEL "3M3" LO 
' e” l 
390 PRINT "EL COSTE MEDIO DE LO 

O S SALARIOS"” "SE INCREMENTA Az" 0 
400 LET SM=(SMx*M/100)+SM 

O | 410 PRINT TAB (8)3"$ "5INT (SM) 

3" POR EMPLEADO" ES 
420 IF INKEY$<>"" THEN GO TO 4 

3 20 

] 430 PRINT : PRINT " PULSA UNA MO) 
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TECLA PARA CONTINUAR" 

440 IF INKEYS="" THEN GO TO 44 
0) 

450 LET FA=(FA*M/100)+FA 

460 LET C=0 

470 LET Y(1)=NE*15/12: REM 
VENTAS BASADAS EN EL NUMERO DE 
EMPLEADOS 

480 LET Y(2)=(100—PV/FA)*MI/100 
: REM VENTAS BASADAS EN LA VENTA 
MENSUAL DE LA INDUSTRIA 

490 REM LAS SIGUIENTE LINEAS 
PONEN EN Y(3) EL VALOR MENOR 
ENTRE Y(1), Y(2) Y M(5) 

500 IF Y(1)<Y(2) AND Y(1)<M(5) 
THEN 'LET Y(3)=Y(1): GO TO 540 
510 IF Yi2)<Y(1) AND Y(2)<M(5) 
THEN LET Y(3)=Y(2): GO TO 540 
520 LET Y (3)=M(5) 

530 REM LAS SIGUIENTES LINEAS 
HALLAN LAS VENTAS MENSUALES 

540 IF ABS (P1-PV)<501 THEN LE 
T Y(3)=3.6*VY (3)/3 

550 IF Y(3)>M(5) THEN LET Y(3) 
=Y (3)-1975: GO TO 550 

560 LET MC=MC+*M/100+MC 

570 LET EF=Y (3) /M(5)+100: REM 
EL Y DE EFICIENCIA ES LAS VENTAS 
DIVIDIDO POR LA PRODUCCION TOTAL 
580 LET CM=(MC*(ABS (85-—EF) /3) / 
100)+MC: REM COSTE MEDIO POR 
VEHICULO 

390 LET MP=((Y (3) * (PV—-CM) ) — (NE + 
SM/12)): REM BENEFICIO MENSUAL 
600 LET MP=INT (MP/(100+1000) ) 
610 LET TP=TP+MP/10: REM BENEFI 
CIO TOTAL EN MILLONES 

620 LET M=0 


O  d O “O. 00 O. Or Q+- € 


O: 07 O 0 


El listado completo de DETROIT CITY está en el siguiente capítulo. 
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El listado de 
Detroit City 


Aquí está el listado completo del programa DETROIT CITY: 


10 REM DETROIT CITY 
20 GO SUB 1640: REM INICIALIZA 


] ] 
] 1 
I 1 

O | CION O 
30 GO TO 110 
| 40 LET MT=MT+1: REM CUENTA LOS 0 

Or MESES "o 
50 GO SUB 450 
60 IF TP>200 THEN GO TO 1560 

O 70 PRINT "TE RINDES (S/N) ?" ro 
80 GO SUB 1010 . 
90 IF As$="S" THEN PRINT "OK J 

Oy EFE": STOP 1:00 
100 GO SUB 1380 
110 GO SUB 650 

O 120 FOR T=1 TO 1000: NEXT T 0 
130 GO SUB 850 

O 140 PRINT "QUIERES AUMENTAR LA 
SALIDA S/N ?2" MO) 


O 


O > O” Y 


O 
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150 GO SUB 1010 

160 IF A$="S" THEN GO TO 1080 
170 IF SF=1 THEN GO TO 210 

1809 PRINT "QUIERES VENDER LA FA 
BRICA 4 2" 

1909 GO SUB 1010 

200 IF A$="S" THEN GO TO 1250 
210 GO SUB 650 

220 PRINT AT 20,05 "CUANTOS EMPL 
EADOS"?” "QUIERES CONTRATAR 72": IN 
PUT HE: PRINT AT 20,053: FOR Z=1 
TO 64: PRINT " "32 NEXT Z 

230 LET NE=NE+HE: IF HE>0 THEN 
GO TO 260 

240 INPUT "Y CUANTOS QUIERES DE 
SPEDIR ?"5HE 

250 LET NE=NE-HE 

260 GO SUB 650 

270 LET P1=PV: REM PONE EN Pi 
EL PRECIO ANTIGUO 

280 INPUT "CUAL ES EL PRECIO DE 
VENTA 2"53PV 

290 REM LA SIGUIENTE LINEA MIRA 
A VER SI EL CAMBIO ES DEMASIADO 
ACUSADO 

300 IF ABS (P1-PV)>2500 THEN P 
RINT "UN CAMBIO DEMASIADO GRANDE 
"* "PARA EL MERCADO": GO TO 280 
310 CLS 

320 PRINT : PRINT : PRINT 

330 LET MI=INT (RND*4000)+48+*10 
00: REM VENTA MENSUAL DE LA 
INDUSTRIA 

340 LET C=C+1: REM CUENTA EL 
NUMERO DE MESES 

350 IF C<3 THEN GO TO 470 

360 LET M=INT (RND*10+1)/4: REM 
INFLACION 

370 CLS 

380 PRINT "LA TASA DE INFLACION 
EN ESTE"” "PERIODO ES DEL "3M3" 
Y” 

390 PRINT "EL COSTE MEDIO DE LO 
S SALARIOS"? "SE INCREMENTA A:" 
400 LET SM=(SM*M/100)+SM 


O +0 O 0 


O 


O DO. (O O 


O 


E E > 0 


410 PRINT TAB (8)3"%$ "5 INT (SM) 
5" POR EMPLEADO" 

420 IF INKEY$<>"" THEN GO TO 4 
20 

430 PRINT : PRINT " PULSA UNA 
TECLA PARA CONTINUAR" 

440 IF INKEY$="" THEN GO TO 44 
o) 

450 LET FA=(FA*M/100)+FA 

460 LET C=0 

470 LET Y(1)=NE*15/12: REM 
VENTAS BASADAS EN EL NUMERO DE 
EMPLEADOS 

480 LET Y(2)=(100-PV/FA)+*M1/100 
: REM VENTAS BASADAS EN LA VENTA 
MENSUAL DE LA INDUSTRIA 

490 REM LAS SIGUIENTE LINEAS 
PONEN EN Y(3) EL VALOR MENOR 
ENTRE Y(1), Y(2) Y M(5) 

500 IF Y(1)<Y(2) AND Y(1)<M(5) 
THEN LET Y(3)=Y(1): GO TO 540 
510 IF Y(2)<Y(1) AND Y(2)<M(5) 
THEN LET Y(3)=Y(2): GO TO 540 
520 LET Y(3)=M(5) 

530 REM LAS SIGUIENTES LINEAS 
HALLAN LAS VENTAS MENSUALES 

540 IF ABS (P1-PV)<501 THEN LE 
T Y(3)=3.6*Y (3) /3 

550 IF Y(3)>M(5) THEN LET Y(3) 
=Y (3)-1975: GO TO 550 

560 LET MC=MC+*M/100+MC 

570 LET EF=Y (3) /M(5)+100: REM 
EL 7% DE EFICIENCIA ES LAS VENTAS 
DIVIDIDO POR LA PRODUCCION TOTAL 
580 LET CM=(MC* (ABS (85-EF)/3)/ 
100)+MC: REM COSTE MEDIO POR 
VEHICULO 

590 LET MP=((Y (3) * (PV—-CM) ) — (NE + 
SM/12)): REM BENEFICIO MENSUAL 
600 LET MP=INT (MP/ (1001000) ) 
610 LET TP=TP+MP/10: REM BENEFI 
CIO TOTAL EN MILLONES 

6206 LET M=0 

630 GO TO 40 

640 REM de d3616 161616616 IE II EJE IE IEA IIA 


O 


O 


O 0, O 0- O: O "O. 0 


O. «O -O7 O 
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650 REM IMPRESION DE INFORMES 
660 CELS 

670 PRINT "EN EL MES "5MT5” "LA 
INDUSTRIA VENDIO "5MI 

6809 IF MT>0 THEN PRINT "TUS VE 
NTAS: "5INT (Y(3))33?" ("5INT (YC 
3)*+1000/M1)/105"% DEL TOTAL)" 
690: :PRINT *=-=================== 
700 PRINT "TIENES "5NE5" EMPLEA 
DOS" 

710 PRINT "EL SALARIO MEDIO ES 
”"5SM 

720 PRINT " O $M "5 INT (SM*NE/ ( 
100*1000)/12)/1053" AL MES" 

730 PRINT "=== ======= 
740 I1F MT=0 THEN RETURN 

750 PRINT "COSTE MEDIO POR COCH 
Ez $"5 INT (CM) 

760 PRINT "PRECIO MEDIO DE VENT 
Az: $"5INT (PV) 

770 PRINT "LUEGO EL BENEFICIO M 
EDIO: $"5 INT (PV-CM) 

780 PRINT ” O $M"5 INT ((PV-CM) + 
Y(3)/(100*1000))/103" AL MES” 
TIO PRINTS 
800 PRINT "EL BENEFICIO DEL MES 
ES $M "3MP/10 

810 PRINT "Xx EL BENEFICIO TOTAL 
HASTA"? "LA FECHA ES $M "5 INT (T 
pP*10)/10 

820 PRINT, ==" “=== ==3= 
830 RETURN 
840 REM 3363636 36-36-16 36 3-36 3-36 3€-3E-3E-3-3E-4-3EHEIE HE 
850 REM INFORMES MENSUALES 

8609 CLS 

870 IF MT>0 THEN PRINT "TUS VE 
NTAS MENSUALES SON "5 INT (Y(3)) 


890 PRINT "MAXIMAS SALIDAS MENS 
UALES: " 


O 


Oo JQ0o o. 0O 


GS 0 OQ 0 


O O 0 


PRINT TAB (3)3"FABRICA 1: ' 
(m(1)) 

PRINT TAB (3)3"FABRICA 2: " 
(M(2)) 

PRINT TAB (3)53"FABRICA 3: " 
(M(3)) 

IF SF=1 THEN GO TO 950 
PRINT TAB (3)3"FABRICA 4: " 
(M(4)) 


980 


PRINT "LA SALIDA TOTAL ES " 


PRINT "EL NIVEL DE EFICIENC 


IA ES "3INT (EF)5"Z" 


990 


RETURN 

REM IMM M6 10 MI III EMI AE 
REM LEE RESPUESTAS 

LET A$=INKEYS$ 

IF A$<>"S" AND A$<>"N" THEN 
TO 1020 

PRINT TAB (223545 

FOR J=1 TO 500: NEXT J 
RETURN 

REM III III MIE IE IRE IE III IAEA E E 
REM INCREMENTAR SALIDA ? 

IF M(4)=0 THEN LET X=15: G 
1110 

LET Xx=189 

PRINT "TE COSTARA "5X5" AUM 


ENTAR" 


1120 
1130 


1140 


PRINT "LA SALIDA EN UN 1%" 
PRINT O P———— 


PRINT "EN QUE % QUIERES AUM 


ENTARLA" 


1150 


INPUT EP: IF EP<0 OR EP>100 


THEN GO TO 1150 


1160 
1170 
1180 
1190 
1200 


LET M(5)=0 

FOR T=1 TO 4 

LET M(T)=M(T)+M(T)AEP/100 
LET M(5S)=M(5) +M(T) 

NEXT T 


O: E 0. 0-0 :0: O O 10 


O 


O 
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1210 LET TP=TP-EP+*X 

1220 FOR T=1 TO 500: NEXT T 

1230 GO TO 170 

1240 REM 36-36363616-1 36 36-36 36-36 36 16363636 -IHEIE IE HEHE 
1260 PRINT "EL VALOR DE VENTA"? " 

DE LA FABRICA 4 ES $M104" 

1270 PRINT "SI LA VENDES, "” "NO P 

ODRAS VOLVER A COMPRARLA..." 
1280 PRINT "LA QUIERES VENDER (S 
IN) 2" 

1290 GO SUB 1010 

1300 IF A$="N" THEN GO TO 210 
1310 LET TP=TP+104 

1320 LET SF=1 

1330 LET M(5)=M(1)+M(2)+M(3) 
1340 LET M(4)=0 

1350 GO TO 170 

1360 REM 36-13163613-3 36 1 36-36-36 3 36 36-136 3 36-16 36-36 
1370 REM FIN DE JUEGO ? 

1380 IF MP>0 THEN LET SA=0: GO 

TO 1480 

13790 LET SA=SA+1 

1400 IF SA>11 THEN GO TO 1420 
1410 GO TO 1480 

1420 CLS : PRINT 

1430 PRINT "TRAS EL MES NUMERO D 
OCE" 

1440 PRINT "ESTAS ARRUINADO..." 
1450 PRINT "QUEDAS AUTOMATICAMEN 
TE DESPEDIDO” 

1470 STOP 

1480 IF TP>=-250 THEN GO TO 153 
0) 

1490 CLS : PRINT 

1500 PRINT "BAJO TU DIRECCION LA 
COMPANIA" 

1510 PRINT "HA PERDIDO MAS DE $M 
250 !" 

1520 GO TO 1450 

1530 IF TP>200 THEN GO TO 1570 
1540 RETURN 

1550 REM 4-36-1-36 3636 16 36 36-16-36 16-36 3 36 -3€-1€36-3E 363636 36 
1560 REM FELIZ ACONTECIMIENTO !! 
1570 CLS : PRINT 

1580 PRINT "ENHORABUENA '! LA COM 


O 


O. Di O O O O O 0 -Qr 0 


oo o O 


O 
O 
O 
O 
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l 
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' 
| 
l 


PANIA HA" 

1590 PRINT "CONSEGUIDO MAS DE $M 
200" 

1600 PRINT "SE TE NOMBRA MIEMBRO 
DEL CONSEJO" 

1610 FOR T=1 TO 2000: NEXT T 
1620 STOP 

1630 REM 49-36-3361 -36-26 36-36-3016 16-26 16-16 36-16-36 -H-1NE 
1640 REM INICIALIZACION 

1545 LET SA=0 

1650 CLS 

1660 RANDOMIZE 

1670 DIM M(5):3 DIM Y(5) 

1680 LET NE=12000: REM NUMERO 
INICIAL DE EMPLEADOS 

1690 LET SM=22995: REM SUELDO 

MEDIO INICIAL 

1700 LET CM=11100: REM COSTE POR 
VEHICULO 

1710 LET PV=12000: REM PRECIO DE 
VENTA 

1720 LET MI=50*1000: LET MC=1010 

0 

1730 LET Y(3)=12500 

1740 LET C=0: LET M=1: LET TP=0: 
LET MS=25: LET EF=77: LET FA=16 

O: LET SF=0: LET MT=0 

1750 FOR J=1 TO 5 

1760 READ M(J) 

1770 NEXT J 

1780 RETURN 

1790 DATA 8900, 3250,2500, 1625,16 

275 
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La emoción 
de la Supercopa 


Todo empezó en 1823, en un colegio de la clase alta de Inglaterra. Un 
estudiante, Willian Webb Ellis, estaba jugando al fútbol un día. Cuando cogió 
la pelota, se la puso debajo del brazo y empezó a correr hacia la meta enemiga. 
En este momento nació el juego que llegó a llamarse rugby. Luego apareció la 
liga de rugby y el Gridiron (en el cual el campo está dividido en parcelas). 

En 1874, algunos estudiantes de Harvard vieron el juego, como se jugaba en 
esos momentos en la Universidad de Montreal, y les gustó. Tomaron algunas 
de las reglas que vieron y las usaron para modificar un juego parecido al fútbol 
que ya se estaba difundiendo por Estados Unidos. 

El juego empezó a tomar popularidad, pero era muy rudo, y se producían 
fácilmente heridas, por lo que a finales de siglo varias universidades exigieron 
que se prohibiera. Sin embargo, Teddy Roosevelt, a quien le gustaba el juego (y 
muchos otros deportes duros), sugirió que en lugar de prohibirlo se podría 
simplificar el juego. Un comité, formado por entrenadores, patrocinadores y 
jugadores, se reunió en 1906 para seguir la sugerencia de Roosevelt. De esta 
reunión surgió el Gridiron que conocemos actualmente. 

En nuestro programa puedes jugar bien contra el equipo del ordenador (los 
“Silicon Cowboys”) o contra otro equipo humano. En el juego que tienes a 
continuación yo decidí jugar contra el ordenador: 


A 
UN JUGADOR O DOS ? e 
71 A 


151 


Y EL NOMBRE DEL EQUIPO VISITANTE 
?LOS GUERREROS DE MULTIMEDIA 


) 


En esta simulación, tienes la opción de lanzar, llevar la pelota o chutar 
incluyendo los intentos desde el campo). El programa permite cuatro períodos 
e quince minutos y debes tomar tus decisiones con calma y reflexión. 


as, 


HAY 60 MINUTOS DE JUEGO 
EMPIEZA SILICON COWBOYS 
ESTAS EN TU PROPIA LINEA 
DE 35 YARDAS 
SILICON COWBOYS HAN... 
AVANZADO 1 YARDAS 
AVANZADO 2 YARDAS 
AVANZADO 3 YARDAS 


00D 


AVANZADO 52 YARDAS 
AVANZADO 33 YARDAS 
AVANZADO 54 YARDAS 
AVANZADO 55 YARDAS 
LA PELOTA ES CAPTURADA ! 
Y RETROCEDE 1 YARDAS 
Y RETROCEDE 2 YARDAS 
Y RETROCEDE 3 YARDAS 


0n0 


Y RETROCEDE 27 YARDAS 
Y RETROCEDE 28 YARDAS 
Y RETROCEDE 29 YARDAS 
LA PELOTA ESTA EN LA LINEA 
DE 39 YARDAS LOS GUERREROS DE MU 
LTIMEDIA 
>PULSA UNA TECLA< 


Jou 


SILICO O GUERRE O 
60 MINUTOS 
LA POSESION ES DE LOS GUERREROS 
DE MULTIMEDIA 

O ABAJO 

10 YARDAS PARA LLEGAR 
EMPIEZA EN LA LINEA DE 39 YARDAS 
ESTAS EN LA LINEA DE 39 YARDAS 


uNU 


bh 


52 


61 YARDAS PARA EL TOUCHDOWN 
EN ESTA JUGADA LOS GUERREROS DE 
MULTIMEDIA 
PUEDEN 1 - LANZAR 
2 —- LLEVAR 
3 - CHUTAR 


0n0 


Una vez hayas decidido tu jugada, el ordenador empezará a contar desde 
uno hasta once. Tienes que soltar la bola durante este período. Si no lo haces a 
tiempo, serás castigado y perderás yardas o la posesión del balón. 


GUERREROS DE MULTIMEDIA, EL LANZ 
ADOR 


) 


TIENE LA PELOTA 


ESPERA TU NUMERO Y ENTONCES 
PULSA UNA TECLA... 


O 


BUENA PATADA... 
HAS AVANZADO 24 YARDAS 


) 


La simulación te obliga a esperar el mayor tiempo posible antes de lanzar la 
bola, pues cuanto más esperes, más lejos llegará la bola. Por ejemplo, si de- 
cides lanzar la bola cuando el contador está en dos, la pelota sólo avanzará 
10 yardas, mientras que si hubieras esperado hasta el 10, habrías conseguido 
40 yardas. 


LA PELOTA ES CAPTURADA ! 
RETROCEDE 1 YARDAS 
RETROCEDE 2 YARDAS 


Y 

Y 

Y RETROCEDE 3 YARDAS 
Y RETROCEDE 17 YARDAS 
Y 
Y 
Y 


a 


RETROCEDE 18 YARDAS 
RETROCEDE 19 YARDAS 
RETROCEDE 20 YARDAS 


LA PELOTA ESTA EN LA LINEA 


|) 


15 


ww 


DE 58 YARDAS DE LOS QUERREROS DE 
MULTIMEDIA 
>PULSA UNA TECLA< 


a 
¡UE 


SILICO O GUERRE O 

59.7 MINUTOS 

LA POSESION ES DE SICICON COWBOY 
Ss 


L 
e, 


O ABAJO 

10 YARDAS PARA LLEGAR 
EMPIEZA EN LA LINEA DE 58 YARDAS 
ESTAS EN LA LINEA DE 58 YARDAS 
42 YARDAS PARA EL TOUCHDOWN 


UL 
2 


EN ESTA JUGADA SILICON COWBOYS 


== PUEDEN 1 - LANZAR 
2 - LLEVAR 
¿ES 3 - CHUTAR 


Como puedes ver, el hecho de que hayas lanzado a una distancia dada, no 
significa que la jugada esté automáticamente terminada. La posibilidad de que 
una jugada termine depende de la distancia a la que se ha lanzado la pelota. 


TOUCHDOWN ! 1 1 
7 TOUCHDOWN! 1 ! 
TOUCHDOWN! ! 1 
2 TOUCHDOWN! ! 1 
TOUCHDOWN ! ! 1 


SILICON COWBOYS 6 
LOS GUERREROS DE MULTIMEDIA O 
JUGADA DE PUNTO EXTRA 

>PULSA UNA TECLA< 


3 


Hay mucha acción en esta simulación y es seguro que lo pasarás bien 
descubriendo las distintas situaciones. Aquí tienes algunas escenas del programa 
en acción: 


Y RETROCEDE 27 YARDAS 
Y RETROCEDE 28 YARDAS 
Y RETROCEDE 29 YARDAS 
Y RETROCEDE 30 YARDAS 
Y RETROCEDE 31 YARDAS 


1) 


LA PELOTA ESTA EN LA LINEA 
DE 46 YARDAS DE LOS QUERREROS DE 
MULTIMEDIA 
>PULSA UNA TECLA< 
OK 
FIN DE PERIODO 
FIN DE PERIODO 
FIN DE PERIODO 
FIN DE PERIODO 
FIN DE PERIODO 
FIN DE PERIODO 
SILICON COWBOYS 27 


GUERREROS DE MULTIMEDIA 6 
>PULSA UNA TECLA< 


FIN DE PERIODO 
FIN DE PERIODO 
FIN DE PERIODO 
FIN DE PERIODO 
SILICON COWBOYS 27 
GUERREROS DE MULTIMEDIA 6 
>PULSA UNA TECLA< 


60 MINUTOS 
LA POSESION ES DE LOS GUERREROS 
DE MULTIMEDIA 

O ABAJO 

10 YARDAS PARA LLEGAR 
EMPIEZA EN LA LINEA DE 44 YARDAS 
ESTAS EN LA LINEA DE 44 YARDAS 
56 YARDAS PARA EL TOUCHDOWN 


EN ESTA JUGADA LOS GUERREROS DE 


MULTIMEDIA 
PUEDEN 1 —- LANZAR 
e - LLEVAR 
3 - CHUTAR 
e 
3 
4 
5 
6 


hi 
a 
a 


UNA GRAN CARRERA DEL ENEMIGO 
HACE QUE PIERDAS 3 YARDAS 
>PULSA UNA TECLA< 
OK 


[] 


FIN DEL PARTIDO 
FIN DEL PARTIDO 
FIN DEL PARTIDO 
FIN DEL PARTIDO 
== FIN DEL PARTIDO 
E FIN DEL PARTIDO 
Í ) SILICON COWBOYS 40 
LOS GUERREROS DE MULTIMEDIA 6 


$ 


al 


El LISTADO DE GRIDIRON está en el siguiente capítulo. 
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El listado 
de Gridiron 


Cuando quieras convertirte en el equipo completo de los Green Bay Pac- 
kers, los New York Jets o los Miami Dolphins, teclea y ejecuta este programa: 


150 LET Z$=A$: RETURN 
160 REM 4361639622640 I0-HMII II MIE IE IEEE 


Qu 10 REM GRIDIRON ¡ O 
20 CLS 
¡ 30 RANDOMI ZE 

e 40 GO SUB 70 ¡O 
1 50 GO TO 220 

O / 60 REM 33633363636 dE AED 46 DEA 106 dE 46-16 -JE-AE- IEEE l O 
70 FOR X=1 TO 1500: NEXT X 
80 RETURN 

Ol 90 REM 34634012 M 10d 0 HEHE M1 1 6 HE M6 M6 EE HE Wo) 
100 PRINT A$;" "¿SA 
110 PRINT B$;" ";SB 

O | 120 RETURN to 
l A I 
140 IF Z$=A$ THEN LET Z$=B$: R 

04 ETURN O 
¡ 
y í 


159 


O. O O 0 Y Or “O. 0-0 


O CO QQ: 0 


O 8 


O 


160 


170 IF INKEY$<>""” THEN GO TO 1 


180 PRINT ” >PULSA UNA TECL 


190 IF INKEYS$="" THEN GO TO 19 
200 PRINT TAB (20)5"0K": RETURN 


210 REM 646334336133 -IEIE A IEA IEA IE HE IEIA IAE 
220 REM INICIALIZACION 

230 DEF FN A(X)=INT (RND*X)+1 
235 LET SA=0: LET SB=0: LET W=6 


240 PRINT "UN JUGADOR O DOS ?" 
250 INPUT X 
260 1F X<1 OR X>2 THEN GO TO 2 


270 IF X=1 THEN LET VC=1: LET 
A$="SILICON COWBOYS": GO TO 300 
280 PRINT "DAME EL NOMBRE"? " 
DEL EQUIPO DE CASA" 

290 INPUT A$: IF A$="" THEN GO 
TO 290 

300 PRINT "Y EL NOMBRE DEL EQUI 
PO VISITANTE" 

310 INPUT B$: IF B$="" THEN GO 
TO 310 

320 LET Z$=A$: LET NU=35 

330 CLS 

340 PRINT "HAY "5 INT (10% (60- (W 
/4)))/105" MINUTOS DE JUEGO" 

350 PRINT 1AB (8)3"EMPIEZA "3Z$ 
360 PRINT "ESTAS EN TU PROPIA L 
INEA”” "DE "5NU5” YARDAS" 

370 IF VC=1 AND Z$=A$ THEN GO 
SUB 70: GO IO 400 

380 PRINT "PARA EMPEZAR..." 

390 GO SUB 170 

400 LET A=FN A(20)+40 

410 PRINT Z$5" HAN..." 

420 FOR X=1 TO A 

430 PRINT TAB (X/4)3 "AVANZADO " 
3X5" YARDAS" 

440 NEXT X 

450 LET NU=NU+X 


O 


O 


O O 0) El “0 


O 


460 GO SUB 70 

470 PRINT "LA PELOTA ES CAPTURA 
DA !" 

480 GO SUB 70 

490 LET A=FN A(30)+10 

500 FOR X=1 TO A 

510 PRINT TAB (X/5)5"Y RETROCED 
E "3X5" YARDAS” 

520 NEXT X 

530 LET NU=ABS (100—NU+X) 

540 GO SUB 140 

59590 PRINT OU E 
560 PRINT "LA PELOTA ESTA EN LA 
LINEA" 


570 PRINT "DE "5NU¿" YARDAS DE 


ms Z7$ 

580 IF Z$=A$ AND VC=1 THEN GO 
SUB 70: GO TO 600 

590 GO SUB 170 

600 LET TG=10: LET D=0: LET SL= 
NU 

610 IF W=60 OR W=180 THEN GO T 
oO 2010 

620 IF W=120 THEN GO TO 2070 
630 IF W=240 THEN GO TO 2140 
640 CLS 

650 PRINT A$( TO 63353" "353SA5" " 
¿3B$( TO 6)53" "53SB 

660 PRINT INT (10*(60- (W/4)))/1 
05" MINUTOS" 

670 GO SUB 70 

680 PRINT "=== 


690 PRINT "LA POSESION ES DE "; 


700 PRINT TAB (4)5D5" ABAJO" 

710 PRINT TAB (4)5TG5" YARDAS P 
ARA LLEGAR" 

720 PRINT "== ===" =="====n ===> 

730 PRINT "EMPIEZA EN LA LINEA 
DE "3SL53" YARDAS" 

740 PRINT "ESTAS EN LA LINEA DE 

"5NU5" YARDAS" 


O ¿O OQ O O: Qr Or Q Y 


O ¿0 € E O 0 


O 


161 


O. QQ 


O" 0.0 (€ 0 700. 7 00 


O 


162 


750 PRINT 100-NU;3" YARDAS PARA 
EL TOUCHDOWN" 

760 PRINT "=== 
770 PRINT "EN ESTA JUGADA "5 
780 IF Z$=A$ THEN PRINT A$5”"P 
UEDEN"5: GO TO 800 

790 PRINT B$5” "PUEDEN"”5 


800 PRINT ” 1 — LANZAR" 
810 PRINT " 2 -— LLEVAR" 
820 PRINT " 3 - CHUTAR" 


830 LET P=0 

840 IF Z$=A$ AND VC=1 AND D<3 T 
HEN LET P=2: GO TO 900 

850 IF Z$=A$ AND VC=1 AND TG<7 
THEN LET P=2: GO TO 900 

860 IF Z$=A$ AND VC=1 AND (100- 
NU)<31 THEN LET P=3: GO TO 900 
870 IF Z$=A% AND VC=1 THEN LET 
P=1: GC TO 900 

880 LET K$=INKEYS$: IF K$<"1" OR 
k$>"3" THEN GO TO 880 

890 LET P=VAL (K$): PRINT TAB ( 
10)5"0k "s5P 

900 GO SUB 70 

910 LET W=W+1 


930 PRINT Z$5", EL LANZADOR" 
940 PRINT TAB (8)5"TIENE LA PEL 


960 PRINT "ESPERA TU NUMERO Y E 
NTONCES” 

970 PRINT TAB (8)5"PULSA UNA TE 
CLA..." 

980 IF INKEY$<>"" THEN GO TO 9 


9909 GO SUB 70 

1000 GO SUB 2200 

1010 IF E=11 THEN GO TO 2340 
1020 PRINT 
1030 IF P=1 THEN GO TO 1050 
1032 IF P=2 THEN GO TO 1310 


O 


O. O O. QU "2 00 O OQ O. Y 


CC 0 O -0 


O € O 2-0 00 50 Y 


O 


O 


1034 IF P=3 THEN GO TO 1590 
19040 REM 43-04363046-2 H MIMI HERE III 
1050 PRINT “HAS LANZADO "5Ex*55" 
YARDAS" 

1060 PRINT TAB (4)3"Y LA JUGADA 
QUEDA...” 

10970 LET A=FN A(8) 

1080 IF A=1 THEN GO TO 1520 
1090 LET A=FN A(E+1) 

1100 IF A=1 THEN PRINT TAB (15) 
3"...COMPLETA": GO TO 1220 

1110 PRINT TAB (15)53"... INCOMPLE 
TA":LET D=D+1 

1120 GO SUB 170 

1130. PRINT *—===""=""=" "== === 
1140 IF D>3 THEN GO TO 1160 
1150 GO TO 610 

1160 PRINT "ESTE HA SIDO TU CUAR 
TO INIENTO" 

1170 PRINT "Y PIERDES LA POSESIO 
N DE LA BOLA" 

1180 LET D=0: LET TG=10: LET NU= 
ABS (100-NU): LET SL=NU 

1190 GO SUB 70 

1200 GO SUB 140 

1210 GO TO 610 

1220 GO SUB 170 

1230 LET NU=NU+(E*5): LET TG=TG- 
(Ex*S5) 

1240 IF NU>100 THEN GO TO 1800 
1250 IF 1G<1 THEN GO TO 1280 
1260 LET D=D+1: IF D>3 THEN GO 
TO 1160 

1270 GO TO 610 

1280 LET D=0: LET TG=10: LET SL= 


1290 GO TO 610 

1300 REM 36313633636 1636-16 36 1 1-1-363-363E-3-36 3-36 35-36 
1310 LET A=FN A(15) 

1320 IF A=1 THEN GO TO 1510 
1330 LET E=A-5 

1340 IF E<x0 THEN GO TO 1440 
1350 IF E=0 THEN LET E=1: GO TO 


O: 0 ¡0 Y 


163 


164 


A A A a a a a ¡e 


1360 PRINT "BUEN MOVIMIENTO, PAS 
AS Y CORRES" 

1370 PRINT "HAS GANADO "5E5" YAR 
DAS" 

1380 GO SUB 170 

1390 LET TG=TG-E: LET NU=ABS (NU 
+E): LET D=D+1 

1400 IF NU>100 THEN GO TO 1800 
1410 IF TG<1 THEN GO TO 1280 
1420 IF D>3 THEN GO TO 1160 
1430 GO TO 410 

1440 PRINT "UNA GRAN CARRERA DEL 
ENEMIGO" 

1450 PRINT "HACE QUE PIERDAS "5A 
BS (E)353" YARDAS” 

1460 LET TG=TG-E: LET NU=NU+E: L 
ET D=D+1 

1470 GO SUB 170 

1480 IF D>3 THEN GO TO 1160 
1490 GO TO 610 

E IN aci 
1519 PRINT "MAL MOVIMIENTO..." 
1520 PRINT "SE TE CAE LA PELOTA. 


1530 PRINT "PIERDES LA POSESION 
DE LA PELOTA" 

1540 LET NU=100-NU: LET D=0: LET 
TG=10: LET SL=NU 

1550 REM 36-36-3636 16-36 36-36 36-16-36-36-36-46-36-36 36 36-36363634-6 
1560 GO SUB 170 

1570 GO TO 460 

1580 REM 3163643136362 1-1 3-34 HIERE IEEE 
1590 PRINT "BUENA PATADA..." 
1600 PRINT "HAS AVANZADO "5Ex*43" 
YARDAS" 

1610 LET NU=NU+E*4 

1620 IF NU>100 THEN GO TO 1650 


1640 GO TO 460 

1650 LET A=FN A(3) 

1660 IF A>1 THEN GO TO 1740 
1670 PRINT "PERO HAS FALLADO EL 
GOL !!!" 

1680 IF NU-E*4<80 THEN LET NU=A 


o Oo 


Oo QQ) O. O 0 50- O 


O 


O Y 


BS (100-(NU-E*4))2: GO TO 1700 
16790 LET NU=20 
1700 LET D=0: LET TG=10: LET SL= 


1710 GO SUB 140 

1720 GO SUB 170 

1730 GO TO 610 

1740 PRINT "........Y PUNTUA !!! 


1750 1F Z$=B% TNEN LET SB=SB+3: 
GO TO 1770 

1760 LET SA=SA+3 

1770 GO SUB 100 

1780 GO SUB 170 

1790 LET NU=35: GO TO 330 

1800 CLS 

1810 FOR X=1 TO 5 

1820 PRINT TAB (X+*2) 5 " TOUCHDOWN 
n.0.. 

1830 NEXT X 

1840 IF Z$=A$ THEN LET SA=SA+6: 
GO TO 1860 

1850 LET SB=SB+6 

1860 GO SUB 100 

1870 PRINT "JUGADA DE PUNTO EXTR 


1880 GO SUB 170 


1900 PRINT "LA PELOTA ESTA LISTA 

...””? "PREPARATE A GOLPEARLA" 

1910 GO SUB 70 

1920 GO SUB 2200 

1930 IF E>9 THEN PRINT "LA HAS 
PERDIDO": LET NU=20: GO TO 1970 
1940 PRINT "HAS PUNTUADO...": LE 
T NU=35 

1950 IF Z$=A$ THEN LET SA=SA+1: 
60 TO 1980 

17960 LET SB=SB+1: GO TO 1980 
1970 GO SUB 140 

17980 GO SUB 100 

197909 GO SUB 170 

2000 GO TO 330 

2010 FOR X=1 TO 7 


Oo. 0 O O 


O. Q O 0 O 0 


O O 0-70 


165 


E DN A 


O 


166 


2020 PRINT TAB (X*2)5"FIN DE PER 
IODO"” 

2030 NEXT X 

2040 GO SUB 100 

2050 GO SUB 170 

2060 GO TO 660 

2070 FOR X=1 TO 7 

2080 PRINT TAB (X*2)5 "PRIMER TIE 
MPO" 

2090 NEXT X 

2100 GO SUB. 100 

2110 LET Z$=B$ 

2120 GO SUB 170 

2130 LET NU=35: LET W=W+2: GO TO 
330 

2140 FOR. X=1 TO 6 

2150 PRINT TAB (X*2)5"FIN DEL PA 

RTIDO" 

2160 NEXT X 

2170 GO SUB 100 

2180 STOP 

2190 REM 336364636363 36-33 4-M SEM HE AHI HE AE 
2200 LET E=0: LET X=10 

2210 IF Z$=A$ AND VC=1 THEN PRI 

NT "ESTE PARA "5A$: GO.TO 2290 
2220 LET E=E+1: LET X=X-1 

2230 PRINT TAB (E)5E 

2240 FOR Y=1 TO X+*1.5 

2250 IF INKEY$<>"" THEN LET Y=X 

*1.5+1: RETURN 

2260 NEXT Y 

2270 IF E=11 THEN RETURN 

2280 GO TO 2220 

2270 FOR E=1 TO FN A(7)+2 

2300 FOR J=1 TO 60: NEXT J 

2310 PRINT TAB (E)5E 

2320 NEXT E 

2330 RETURN 

2340 PRINT "DEMASIADO TARDE !!" 

2350 PRINT 

2360 LET E=FN A(4) 

2370 IF E=3THEN GO TO 2430 

2380 PRINT "Y PIERDES 5 YARDAS" 

2390 LET TG=TG+5: LET D=D+1: LET 
NU=NU-S 


2400 
2410 
2420 
2430 
2440 
+5): 

2450 
2460 
2470 


GO SUB 170 

IF D>3 THEN GO TO 1160 

GO TO 610 

PRINT "Y PIERDES LA PELOTA" 
LET D=0: LET NU=ABS (100-—NU 
LET SL=NU:'* LET TG=10 

GO SUB 170 

GO SUB 140 

GO TO 610 


GO 0. 0 


O 
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El gran s/am 


En esta simulación deportiva tienes la oportunidad de jugar un partido de 
tenis de tres sets contra tu ordenador. Si lo prefieres, también puedes jugar 
contra otro humano con la simulación, moderando e informándote sobre el 
desarrollo de la acción. 

El tenis llegó a Inglaterra a mediados del siglo pasado. Hacia 1877 era 
un juego bastante popular, así que se estableció un campeonato nacional, 
en Wimbledon. Hay un máximo de cinco sets en un partido masculino, y un 
máximo de tres en uno femenino, con un mínimo de seis juegos por set. Tienes 
que llevar ventaja de dos juegos para ganar un set. 

Esta simulación pone a prueba tu habilidad para tomar decisiones. La 
primera decisión es la velocidad de tu servicio. Si eliges jugar contra el ordena- 
dor, él siempre servirá primero para que lo puedas ver en acción. Aprenderás 
más sobre esta simulación observando el servicio del ordenador que leyendo 
estas instrucciones. 

La simulación está hecha de tal forma que los servicios rápidos tienen 
mayor probabilidad de hacer un “ace” que los lentos, pero también es más 
probable que se salga fuera. Los servicios lentos raramente producirán un “ace”, 
pero tampoco suelen ser erróneos. 

Después el servicio, y tras una breve pausa, la pantalla se limpia y el 
ordenador empieza a contar al revés hasta llegar a cero. Para golpear la bola, 
tienes que esperar hasta que el contador llegue a cero, y entonces pulsar alguna 
tecla. 


169 


Si golpeas demasiado pronto o demasiado tarde pierdes la bola, y el ordena- 
dor te dice si ha entrado o no ha entrado. Observa que puedes decidir dejar 
pasar la bola, si piensas que va a salir fuera. Si golpeas la bola, justo cuando el 
contador llegue a cero, la pantalla se borrará y mostrará la bola en el campo 
del otro jugador. El proceso continúa hasta que uno de los dos jugadores 
pierda la bola. 

El programa comienza preguntándote si va a haber un jugador humano o 
dos. Si sólo hay uno, te pedirá el nombre del jugador: 


Pp UNO O DOS JUGADORES ? 1 
UE NOMBRE DEL SEGUNDO JUGADOR ? FEL 


y) IPE 


Esta simulación maneja nombres que tengan seis letras como máximo. Si 
introduces un nombre mayor, el ordenador lo reducirá a sus seis primeras 
letras. El nombre del jugador del ordenador es, como verás dentro de un 
momento, “Bjornx”. El partido comienza con Bjornx al servicio: 


SIRVIENDO BJORNX 
QUIERES SERVIR 1-RAPIDO 
O 2-LENTO 


L) 


1 >SERVICIO RAPIDO 


Bjornx ha elegido un servicio rápido y el contrincante humano debe intentar 
devolverlo: 


PAS] FELIPE, LA PELOTA ESTA 
UN EN TU CAMPO 


PARA DEVOLVER LA BOLA, PULSA UNA 
TECLA CUANDO VEAS EL CERD... 
3 


ps 5 
[_) 4 
2 
P) HAS PERDIDO de BOLA, Y 
E a 
LL) > 


HA ENTRADO... UN ERROR 


Desafortunadamente, Felipe no está jugando con su habilidad habitual. 
Aparece la puntuación antes de que Bjornx sirva de nuevo: 


md 


70 


169) 
m 
pl 
(09) 
m 
pr 
169] 
m 
pa 


BJORNX 0) 10) o 30 
FELIPE 10) 10) o. o 
SIRVIENDO BJORNX 
QUIERES SERVIR 1-RAPIDO 
O 2-LENTO 
1 >SERVICIO RAPIDO 


00 


El sistema de puntuación de nuestra simulación es el mismo que el de un 
juego real, siendo necesarios un mínimo de cuatro puntos para ganar un juego: 
15, 30, 40 y juego. Si ambos jugadores llegan a 40, se dice “iguales”, y el primer 
jugador que consigue un punto se dice que tiene “ventaja”. Para ganar se 
necesitaría todavía un punto más. Si el oponente consigue un punto, en lugar 
de conseguirlo el jugador con “ventaja”, la puntuación vuelve a ser de iguales. 
Desde luego, no tienes que preocuparte de este sistema de puntuación, ya que el 
ordenador se ocupa de todo esto por ti. 

Aquí tienes algunas de las situaciones que se pueden producir en el transcur- 
so del juego: 


JUEGO PARA BJORNX 


L) 


1.2 3 JUEGO e 
BJORNX 1 10) o o Mu) 
FELIPE o o 0.0 


SIRVIENDO FELIPE 
QUIERES SERVIR 1-RAPIDO 
O 2-LENTO 
1 >SERVICIO RAPIDO 


po 


.. «FUERA... 
. . [SEGUNDO SERVICIO... 
SIRVIENDO FELIPE 


QUIERES SERVIR 1-RAPIDO AN] 
O 2-LENTO 1 
2 >SERVICIO LENTO LJ 


— 
ar] 
-—» 


a 
LL) 
Nm 
m 
— 
Nn 
m 
pa] 
169] 
m 
— 


BJORNX 6 10] o. 0 
FELIPE 1 O o 40 
SIRVIENDO FELIPE 
QUIERES SERVIR 1-RAPIDO 

O 2-LENTO 
>SERVICIO LENTO 


Jo 


BJORNX 
FELIPE 


SIRVIENDO BJORNX 


o. 15 


|) 
¡e 
- O 


[) QUIERES SERVIR 1-RAPIDO 
O 2-LENTO 
_— 1 >SERVICIO RAPIDO 


Parece ser que a los humanos no se les da muy bien este juego. 


O 
SET SET SET 
A E EN E SPAN 
1. 2 3 JUEGO 
BJORNX 5b 4 0 20 
FELIPE 1 2 O 40 


SIRVIENDO FELIPE 

QUIERES SERVIR 1-RAPIDO 
O 2-LENTO 

>SERVICIO LENTO 


1 2 3 JUEGO 


pe BJORNX 6 4 0 IGUALES 
Ll) FELIPE 1. 2 0 IGUALES 


72 


b 


1 2 3 3-5 
BJORNX 6 6 6 O 
FELIPE 1 4 4 0 
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Listado 
del Tenis 


Cuando estés listo para retar a Bjornx a un par de sets, teclea y ejecuta el 
siguiente programa: 


10 REM TENIS 
20 CLS 


30 RANDOMIZE 

40 LET VC=0: LET KB=0: LET SC= 
O: LET AA=0: LET BB=0: LET T=0: 
LET KA=09 

50 LET XA=0: LET YA=0: LET ZA= 
o 

60 LET XB=0: LET YB=0: LET ZB= 
o 

70 DEF FN A(X)=INT (RND*X)+1 

80 INPUT “UNO O DOS JUGADORES 
25 

90 IF A<1 OR A>2 THEN GO TO 8 
o 

100 IF A=1 THEN LET A$="BJORNX 
“z LET VC=1 


O 


' 
| 
' 
| 
| 
Ú 
I 
l 
| 
| 
l 
| 
' 
| 
| 
1 
1 
l 
I 
1 
l 
| 
l 
| 
I 
| 
| 
' 
1 
! 


O 


O CO" JO 0 
O 0 0 OO 


O 
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DO: 00. “O Oe O E O... 0 


O 


O 


176 


110 IF vC=1 THEN GO TO 160 

120 PRINT "PON UN NOMBRE DE SEI 
S LETRAS" 

130 INPUT "NOMBRE DEL PRIMER JU 
GADOR "5A$ 

140 IF LEN A$<6 THEN LET A$=A$ 
+" ": GO TO 140 

150 LET A$=A$( TO 6) 

160 INPUT "NOMBRE DEL SEGUNDO J 
UGADOR "5B5$ 

170 IF LEN B$<6 THEN LET B$=B% 
+" ": GO TO 170 

180 LET B$=B$+( TO 6) 

190 LET S=1: LET AA=1: LET BB=1 

200 CLS 

210 LET P$=0$: LET R$=BS$ 

220 REM dede 1H III II III III MAA 

230 I1F P$=A$% THEN LET R$=B$ 

240 IF P$=B$% THEN LET R$=A$ 

250 PRINT "SIRVIENDO "5P+% 

260 PRINT "QUIERES SERVIR 1-RAP 
IDO" 

270 PRINT ” O 2-LEN 
TO .” 

280 IF P$=A$ AND VC=1 AND SC=0 
THEN LET KB=1: GO SUB 1720: GO 
TO 330 

290 IF P$=A$ AND VC=1 AND SC=1 
THEN  LET KB=2: GO SUB 1720: GO 
TO 330 

300 LET K$=INKEYS$ 

310 IF K$<"1" OR K$>"2" THEN G 
O TO 300 

320 LET KB=VAL K$ 

330 PRINT : PRINT TAB (6)5KB5TA 
B (10)3"> SERVICIO "5 

340 IF KB=1 THEN PRINT "RAPIDO 


350 IF KB=2 THEN PRINT "LENTO" 


, 

370 GO SUB 1720 

380 IF KB=1 THEN LET EB=FN A(3 
): GO TO 400 

390 LET EB=FN A(8) 

400 IF EB=1 THEN GO TO 450 


O O Y 


O Or Y 9 


O O 0. 


410 IF EB=3 AND SC=0 THEN GO T 
O 3520 

420 IF EB=3 AND SC=1 THEN GO T 
O 590 

430 GO TO 6470 

440 REM 363-2643 -16-36-16-I0-10EH III III IE MEA 
450 CLS : PRINT 

460 PRINT TAB (8)5"....ACE....” 
470 GO SUB 1720 

480 LET SC=0 

490 IF P$=A4%$% THEN GO TO 1140 
500 GO TO 1150 

510 REM 3d4-24-263-36-I6-1-H6-30I6 30-010 I AE MIE HEHE 
520 CLS : PRINT 

530 PRINT TAB (12)5"....FUERA.. 


540 PRINT TAB (8)5"...SEGUNDO S 
ERVICIO..."” 

550 GO SUB 1720 

560 LET SC=1 

570 GO TO 230 

580 REM 41-263 1-16-2616-28-26-2- MIMI III MALE 
590 CLS : PRINT 

600 PRINT TAB (12)5"....FUERA.. 


610 PRINT TAB (9)53"....DOBLE FA 
LTA..."” 

620 GO SUB 1720 

630 LET SC=0 

640 IF P$=A$ THEN GO TO 1150 
650 GO TO 1140 

660 REM 33-1-2-26-16-26-26-36 M6 36-10 HE MEME IE HARE 
670 LET SC=0 

680 CLS : PRINT 

6909 IF INKEY$<>"" THEN GO TO 6 
90 

700 PRINT R$;5", LA PELOTA ESTA" 
: PRINT "EN TU CAMPO" 

TAO PRINT A == 
720 IF R$=A$ AND VC=1 THEN GO 
TO 750 

730 PRINT "PARA DEVOLVER LA BOL 
A, PULSA UNATECLA CUANDO VEAS EL 
CERDO..." 


O O: O O 


o. O 


Oo Q. -8 


SO E CAS 


177 


O O O O 


O” O. O 
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740 IF INKEYS$<>"" THEN GO TO 7 


750 LET X=4*FN A(3): LET Y=X 
760 GO SUB 1720 

770 LET E=s5 

780 PRINT TAB (2*(11-E))3E 

790 LET Y=Y-1 

800 LET S$=INKEYS$ 

810 IF S$<>"" AND E=0 THEN GO 
TO 890 

820 IF S$<>"" THEN GO TO 990 
830 IF Y>0 THEN GO TO 790 

840 LET E=E-1: LET Y=X 

850 IF E<-1i THEN GOD TO 990 

860 IF E=-1 AND R$=A$ AND VC=1 
THEN GO TO 890 

870 GO TO 780 

880 IF KB=1 THEN LET EA=FN A(2 
): GO TO 1000 

890 LET EA=FN A(4) 

900 IF E=0 AND R$=A$ AND VC=1 T 
HEN  LET EA=FN A(8) 

910 IF EA=1 THEN GO TO 940 
920 IF R$=A$ THEN LET R$=B$: G 
O TO 670 

930 LET R$=A$: GO TO 670 

940 PRINT R$53", HAS GOLPEADO LA 
BOLA" 

950 PRINT TAB (8)5"DEMASIADO TA 
RDE..." 

960 GO SUB 1720 

970 IF R$=A$ THEN LET R$=B$: G 
O TO 1150 

980 GO TO 1140 

990 LET EA=FN A(4) 

1000 IF EA=1 THEN GO TO 1070 
1010 PRINT "HAS PERDIDO LA BOLA, 
Viana” 

1020 GO SUB 1720 

1030 PRINT " HA ENTRADO...UN E 
RROR" 

1040 GO SUB 1720 

1050 IF R$=A$ THEN LET R$=B$: G 
O TO 1150 

1060 GO TO 1140 


O 8 O 0 


o. O 


O 0-0 O 


O O 70 O 0 


O” O O” 2-0 Y 


O 


O 


1070 PRINT "HAS PERDIDO LA BOLA, 


Wi 

1080 GO SUB 1720 

1090 PRINT " ERA FUERA. .BIEN D 
EJADA" 


1100 GO SUB 1720 

1110 IF R$=A$ THEN LET R$=B$: G 
O TO 1140 

1120 GO TO 1150 

1130 REM 6363623 36-36 36-16 -1-1-36-36-16-1-IEIE IE IE IET E 
1140 LET AA=AA+1: GO TO 1160 
1150 LET BB=BB+1 

1160 IF AAX<S AND BB<5S THEN GO T 
oO 1230 

1170 IF (BB>4AND AA<4)O0R (BB>4AN 
D BB-AA>1)THEN LET AA=1:LET BB=1 
:GO TO 1500 

1180 IF (AA>4 AND BB<4) OR (AA>4 
AND AA-BB>1) THEN LET AA=1: LE 
T BB=1: GO TO 1440 

1190 IF AA>4 AND AA>BB THEN LET 


C$="VEN": LET D$="-—--": GO TO 1 
320 

1200 IF BB>4 AND BB>AA THEN LET 
D$="VEN": LET C$="-—-—-"3 GO TO 1 
320 


1210 LET C$="IGUALES": LET Ds$=" 
IGUALES": GO TO 1320 

1220 REM 4363411 3636-31 -36-I6-IE HE IE IE IE IE M6 IE IE IE MEE 
1230 RESTORE 

1240 FOR D=i TO AA 

1250 READ C$ 

1260 NEXT D 

1270 RESTORE 

1280 FOR D=1 TO BB 

1290 READ D+$ 

1300 NEXT D 

1310 REM 4-96-2-2-2-16-16 16-16-16 16-16 16-1E-IEICII RIE 
1320 CLS 

1330 PRINT "————————— 


1340 PRINT " SET SET 
SET" 
1350 PRINT "------==========-=--- 


O 


Oo UD 1) O 60 0 0 0 O 6 756 A 


O 
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O 


O Ye 0 O O O. MU 0 96" ¿O O) 70 


O 
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1360 PRINT " 1 2 
3 JUEGO” 


1370 PRINT A$3" xao 
s5YA5 “ "sZA; $. "3C$ 
1380 PRINT B$5" BA 
5YB; ." "sZB; » "5D$ 
1390 PRINT "=== 


1400 GO SUB 1720 
1410 IF T<>1 THEN GO TO 230 
1420 STOP 

1430 REM I-3I-3633 36-336 36M IE IE IEEE IE DEI E HE 
1440 CLS 

1450 PRINT "JUEGO PARA "5A5$ 

1460 (GO SUB 1720 

1470 IF S=1 THEN LET XA=XA+1: L 
ET C$="0": LET D$="0":= GO TO 156 
0 

1480 IF S=2 THEN LET YA=YA+1: L 
ET C$="0"2 LET D$="0"z GO TO 158 
(7) 

1490 IF S=3 THEN LET ZA=ZA+1: L 
ET C$="0": LET D$="0": GO TO 160 
0 

1500 CLS 

1510 PRINT "JUEGO PARA "5B5$ 

1520 GO SUB 1720 

1530 IF S=1 THEN LET XB=XB+1: L 
ET C$="0":2 LET D$="0": GO TO 156 
0 

1540 IF S=2 THEN LET YB=YB+1: L 
ET C$="0": LET D$="0": GO TO 158 
o 

1550 IF S=3 THEN LET ZB=ZB+1:2 L 
ET C$="0": LET D$="0": GO TO 160 
0 

1560 IF (XA>5 AND XB<5) OR (XA<5 
AND XB>5) THEN GO TO 1630 

1570 IF (XA>5S AND XA-XB>1) OR (X 
B>5 AND XB-XA>1) THEN GO TO 163 

(7) 

1580 IF (YA>5S AND YB<S) OR (YAXS5 
AND YB>5) THEN GO TO 1630 

1590 IF (YA>5 AND YA-YB>1) OR (Y 
B>5 AND YB-YA>1) THEN GO TO 163 


O 


O. ¿0 “O: O dl ¿0 0. QQ. Y 


oO O O 


| 
! 
l 
| 
| 
I 
] 
l 
] 
] 
| 
l 
| 
l 
| 
| 
| 
i 
| 
| 
1 
| 
| 
| 
I 
' 
' 
' 
i 
| 
| 
1 
| 
| 


o 

1600 IF (ZA>5 AND ZB<5) OR (ZAXS 
AND ZB>5) THEN GO TO 1630 

1610 IF (ZA>5S AND ZA-7B>1) OR (Z 

B>5 AND ZB-ZA>1) THEN GO TO 163 

o 

16420 GO TO 1640 

1630 LET S=S+1 

16440 LET AA=1: LET BB=1 

1650 IF P$=A$ THEN LET R$=A$: L 

ET P$=B$: GO TO 1320 

1660 LET P$=A$: LET R$=B$: GO TO 
1320 

1670 REM 34-40-22 26-203-2-I0-H-36-26 16 HEHE MIE IIA 
1480 LET T=1 

165909 GO TO 1320 

AI A ii 
1710 REM RETARDO 

1720 FOR M=1 TO 1000: NEXT M 
1730 RETURN 

1740 DATA ”g" , ” 15” . "3" . "249" 


O” <OX O 0 


O O y 
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Conducción 
de un coche 
de carreras 


Ahora tienes la oportunidad de conducir un coche de carreras simulado, a lo 
largo del circuito que elijas de entre cuatro de los mejores circuitos de Grand 
Prix del mundo. Ahora tú también puedes ser un héroe en el circuito británico 
conocido como “La Ballena”; el alemán llamado “La Llave”; en el italiano “El 
Zapato”; o en el circuito de Mónaco de 3 100 metros. 

El programa empieza pidiéndote tu nombre y deseándote suerte, antes de 
preguntarte en qué circuito quieres correr y a cuántas vueltas terminará la 
carrera: 


CUAL ES TU NOMBRE CONDUCTOR ? TOM 
> $e 
LJ) 
OK, BUENA SUERTE TOMAS 
OK, BUENA SUERTE TOMAS 


OK, BUENA SUERTE TOMAS == 
HI III II II II IE ME IE IE IE IE E IE IE E IE FE HE IE IE E HE JE E 
EN QUE CARRERAS VAS A PARTICIPAR? sal) 
GRAND PRIX BRITANICO  24S50MT :1 

GRAND PRIX ALEMAN 1700MT :2 == 
GRAND PRIX ITALIANO 2200MT :3 E 
GRAND PRIX MONACO 3100MT :4 sal 


INTRODUCE EL NUMERO 
ue (ENTRE 1 Y 4) 
lu) HEM HIRE MIR RRHH IA MIRRA 
OK, EL CIRCUITO BRITANICO 
MMM R MMMM MIE IMA HIRE A 


P7 
0 SOBRE CUANTAS VUELTAS ? 
2 21 


El objetivo de esta simulación, como es evidente, es terminar la carrera lo 
más rápidamente posible, sin chocar y sin romper el motor y los frenos. 

Empiezas la carrera, como indica la quinta línea de abajo, en la posición 
sexta. En el circuito británico empiezas la simulación a 140 kilómetros por 
hora, por debajo de la velocidad recomendada para la curva que se acerca. 
Para aumentar la velocidad, pulsa la tecla “M”. La “Z” te hará frenar y SPACE 
hará que mantengas la misma velocidad. Unos segundos después de que empie- 
ce la simulación aparecerá una pantalla como ésta: 


TEMPERATURA DEL MOTOR 100C. 
| (MAX. 200) 
e TEMPERATURA DE LOS FRENOS 10C. 
(MAX. 500) 
DISTANCIA CUBIERTA 


T 


O METROS 
O VUELTAS 
ESTAS EN LA POSICIO 
VELOCIDAD ACTUAL: 140 KPH 
2: 77.7 MT / PASO 


1] 


= 


ON A O E A 
El PROXIMA CURVA A 800 METROS 
VELOCIDAD RECOMENDADA 150 KPH 


r 


La simulación comienza con la primera curva a una distancia de 800 me- 
tros. Ahora está a 57 metros y he incrementado mi velocidad a 148 Km, justo 
por debajo de la máxima velocidad recomendada para esta curva (150 Km). El 
motor se-ha calentado ligeramente, pero todavía está lejos del máximo de 200 y 
la temperatura de los frenos ha crecido de 10 grados a cerca de 55. 


TEMPERATURA DEL MOTOR 104.4C. 
== (MAX. 200) 
E TEMPERATURA DE LOS FRENOS 57.7C. 
Y) (MAX. 3500) 


DISTANCIA CUBIERTA 742.2 METROS 


.28 VUELTAS 


184 


ESTAS EN LA POSICION 6 A 
VELOCIDAD ACTUAL: 148 KPH 

: 82.2 MT / PASO 
PROXIMA CURVA A 57 METROS 
VELOCIDAD RECOMENDADA 150 KPH 


ES 


Pasé esta curva sin problemas, pero me temo que he sido demasiado caute- 
loso ya que, con menos de media vuelta recorrida, estoy en la posición séptima 
(tras haber empezado en la sexta): 


TEMPERATURA DEL MOTOR 87.1C. 

(MAX. 200) P) 
TEMPERATURA DE LOS FRENOS 157.3C. E 
(MAX. 500) 


DISTANCIA CUBIERTA 1102 METROS 
.41 VUELTAS . 
ESTAS EN LA POSICIO >] 
oo E 
VELOCIDAD ACTUAL: 112.3 KPH 
: 62.3 MT / PASO 


PROXIMA CURVA A 97 METROS a 
VELOCIDAD RECOMENDADA 90 KPH l— 0, 


Ze .. .. 
e] 


freno, pulsando la tecla “Z”. Pero es demasiado tarde: 


HAS TOMADO LA CURVA A 104.8 KPH 


Y LA VELOCIDAD MAXIMA ERA 90 A 
DERRAPAS FUERA DE LA PISTA... UN 
Eds Y TE ESTRELLAS!!! 1! = 
SOLO HAS DURADO 1218 METROS, 
O .45 VUELTAS, Y EN ESE MOMENTO A] 
ESTABAS EN LA POSICION 7 [) 
TU VELOCIDAD MEDIA 

HA SIDO DE 137.03 KPH 

HAS SIDO EL 2 MAS RAPIDO EN LAS [>] 
RECTAS ll) 


Y EL 12 MAS RAPIDO EN LAS CURVAS 


PULSA ”M”PARA EL MISMO CIRCUITO 
?N*PARA UNO NUEVO 
"F*PARA FINALIZAR 


7 
y 


Estaba en la séptima posición cuando la carrera terminó. La pantalla final 
me dice que mi velocidad media estuvo sobre los 137 Km, que fui el segundo 
más rápido en las rectas y sólo el decimosegundo en las curvas. 

Como puedes ver, se te da la oportunidad de correr en el mismo circuito 
otra vez (pulsando “M”), de elegir uno nuevo (“N”) y de terminar la simula- 
ción (“F”) 

Pulso la tecla “N” y me decido por el circuito alemán: 


M 


He MM IM RI AA 
EN QUE CARRERAS VAS A PARTICIPAR? 


[] 


GRAND PRIX BRITANICO e2650MT :1 

PAN GRAND PRIX ALEMAN 1700MT :2 
[) GRAND PRIX ITALIANO e2200MT :3 
GRAND PRIX MONACO 3100MT :4 


INTRODUCE EL NUMERO 
(ENTRE 1 Y 4) 
HAN MIRRA AA 
OK, EL CIRCUITO ALEMAN 
HR HR MMM MAA 


) 


SOBRE CUANTAS VUELTAS 2? 
21 


a 
2 


Esta vez me arriesgaré menos, e intentaré terminar la vuelta sin chocar con 


TEMPERATURA DEL MOTOR 117.5C. 
(MAX. 200) 
TEMPERATURA DE LOS FRENOS 34.5C. 
(MAX. 500) 
DISTANCIA CUBIERTA : 1424.3 METROS 
: .83 VUELTAS 
ESTAS EN LA POSICION 27 
VELOCIDAD ACTUAL: 116.3 KPH 
: 64.6 MT / PASO 
PROXIMA CURVA A 759 METROS 
VELOCIDAD RECOMENDADA 200 KPH 


86 
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Unos momentos después, lo había conseguido: 


ENHORABUENA TOMAS !! 


ENHORABUENA TOMAS !! PS 

ENHORABUENA TOMAS !! ¡E 

ENHORABUENA TOMAS !! Y) 
ENHORABUENA TOMAS !! 

HAS LLEGADO A LA META Po) 

EN LA CARRERA DE UNA VUELTA Ll) 


El principal valor de esta simulación, aparte de su propio potencial interno, 
es mostrar cómo los factores de la “vida real” (como la temperatura del motor 
y los datos de cada curva) se pueden codificar en un programa. También puedes 
ver cómo se usan fórmulas para poner las distintas salidas en una notación 
realista (como las líneas 370 y 380 que calculan cuánto has recorrido, por medio 
de convertir tu velocidad —medida en kilómetros por hora— en metros). 

Observa también que las líneas 320 y 330, que se encargan de controlar 
cuando aceleras o frenas, suman o restan un valor dependiente de la velocidad 
actual a la que estás viajando. Esto significa que será mucho más difícil frenar 
cuando vas a mucha velocidad que cuando vas despacio. Al usar un valor 
dependiente de la velocidad actual se consigue mucho más realismo que si 
simplemente se sumara o restara un valor fijo (como 3,5, que se usa en la 
primera versión de este programa) cada vez que se pulsa una tecla. 


HAS TERMINADO EN LA POSICION 30 1 

TRAS HABER EMPEZADO EN LA SEXTA 

TU VELOCIDAD MEDIA 

HA SIDO DE 100.38 KPH 

HAS SIDO EL 14 MAS RAPIDO EN LAS pS 

RECTAS o 

Y EL 47 MAS RAPIDO EN LAS CURVAS => 

PULSA ?M”PARA EL MISMO CIRCUITO == 
”N>PARA UNO NUEVO» E 
>F>PARA FINALIZAR ly) 


Los circuitos 


Aquí están los cuatro circuitos de Grand Prix que están codificados en el 
programa: 
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GRAND PRIX BRITANICO: “La Ballena” (2.650 metros). 


Salida 


800 metros 150 — MAXIMA 


VELOCIDAD PARA 
ESTA CURVA 
250M 
400M — DISTANCIA 
ENTRE LAS 
150 CURVAS 


“horquilla” 


GRAND PRIX ALEMAN: “La Llave” (1.700 metros). 


“codo del demonio” 
120 


GRAND PRIX ITALIANO: “El Zapato” (2.200 metros). 


S 


800 metros 


120 
150 


“curva de la muerte” 150 
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GRAND PRIX DE MONACO (3.100 metros). 


S 175 300M 


200 
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El listado 
del Grand Prix 


Coge firmemente el volante y participa en los circuitos de Grand Prix con 
este programa: 


10 REM GRAND PRIX 
20 GO SUB 2200: REM INICIALIZA 
CION 
30 GO SUB 1190: REM ELECCION 
DE CIRCUITO 
REM 6616-2646 3304-20 HE IAH MIE ME EH EE 
REM BUCLE PRINCIPAL 
SUB 120: REM IMPRESION 
SUB 280: REM ACELERACION 
SUB 450: REM MOTOR/FRENO 


SUB 500: REM POSICION/CU 


100 GO TO 60 

110 REM 46-4-141-36-46-2-263E-26-16-16-26 46-16 36-26-36-4€ 46-16 
120 REM IMPRESION 

130 CLS 


I 
1 
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l 
I 
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O O 0: 0 


O: y O. 0 


O 


O 
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140 PRINT "TEMPERATURA DEL MOTO 
“s5INT (MOT*10)/1053"C."”" (MAX. 

200)" 

150 PRINT "TEMPERATURA DE LOS F 
RENOS: "5INT (FREN*10)/105"C. ( 
MAX. 500)" 

160 PRINT "DISTANCIA CUBIERTA 
"5INT (DIST*10)/105" METROS" 

170 PRINT " : 
“5 INT (DISTx*100/RR)/10035" VUELTA 
s" 

180 PRINT "ESTAS EN LA POSICION 

"5 INT (FP) 

190 PRINT  "——-================== 

200 PRINT "VELOCIDAD ACTUAL: "51 
NT (VELO*10)/103" KPH" 

210 PRINT ” "51 
NT (VELO*5.5559)/103" MT / PASO" 

220 PRINT "=== ============- 

230 PRINT "PROXIMA CURVA A "5 IN 
T (APP)53" METROS" 

240 PRINT "VELOCIDAD RECOMENDAD 
Az "3C(C)33" KPH" 

250 PRINT  "-——------===========-- 

260 RETURN 

270 REM He 0 MMMM MI HI INMI 

280 REM ACELERACION Y DECELERAC 


290 LET X$=INKEYS$: IF X$<>"Z" A 
ND X$<>"M" AND X$<>" " THEN GO 
TO 290 

300 PRINT TAB (12)5"”0K" 

310 LET X=0 

320 1F X$="M" THEN LET X=VELO/ 
15 

330 IF X$="Z" THEN LET X=-VELO 
/15 

340 LET NUM=NUM+1: REM NUMERO 
DE PASOS 

350 LET VELO=VELO+X 

360 IF VELO<0 THEN LET VELO=0 

370 LET TRAY=VELO*.S55559: REM D 


O" DE 5 40 


O 


Oy “0 UU O O 


O q 00 4 70 


ISTANCIA RECORRIDA 

380 LET DIST=DIST+TRAY: REM DIS 
TANCIA TOTAL RECORRIDA 

390 LET MOT=MOT+(X/2)+.07: IF M 
OT<70 THEN LET MOT=70+RND*8: RE 
M TEMP. DEL MOTOR 

400 IF X>0 THEN LET FREN=FREN* 
.9: REM ACELERANDO; TEMP. DE LOS 
FRENOS DESCIENDE 

410 IF X<i THEN LET FREN=FREN— 
(3%X)-—RND*3: REM FRENANDO; TEMP. 
DE LOS FRENOS AUMENTA 

420 IF FREN<8 THEN LET FREN=8+ 
RNDx8 

430 RETURN 

440 REM 301-313 3636-3636 136-2636 3 36H -1EIE-IEIE E HEHE 
450 REM EXAMINA LA TEMP. DE LOS 
FRENOS Y DEL MOTOR 

460 IF MOT>200 THEN PRINT "TU 
MOTOR SE HA SOBRECALENTADO": GO 
TO 830 

470 IF FREN>500 THEN PRINT "TU 
S FRENOS SE HAN SOBRECALENTADO" : 
GO TO 830 

480 RETURN 

490 REM 33633136363 2 23636 1363636 31-31-3616 -H-3646 
500 REM EXAMINA LA VELOCIDAD DE 
LA CURVA Y LA POSICION 

510 LET APP=APP-TRAY 

520 IF APP>0 THEN RETURN 

530 LET CRASH=0 

540 IF VELO>(C(C)*1.125) THEN 
LET CRASH=1: GO TO 690 

550 IF VELO>(C(C)*1.1) THEN GO 
TO 690 

560 LET PNT=PNT+100-((C(C)*1.1) 
VELO): REM CURVAS 

570 LET NC=NC+1: REM NUMERO DE C 
URVAS 

580 LET CP=96-(PNT/NC): REM 
POSICION CURVA 

590 LET AM=AM+A(C): REM NUMERO 
MEDIO DE PASOS PERMITIDOS 

600 LET RP=NUM-AM: REM POSICION 
EN LA CARRERA. TUS PASOS MENOS 


O. 00. 0 “OY (0 00. CO 6: 00 .0 CO: +0 


O” De Er 0 
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O 


O 
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LOS PASOS MEDIOS 

610 LET FP=(CP+RP)/2: REM LA 
FOSICION ES LA MEDIA ENTRE LAS 
CURVAS Y TU POSICION EN LA 
CARRERA 

620 1F FP<1 THEN LET FP=1 

630 LET C=C+1 

640 IF C=WW THEN LET C=1: REM 
FIN DE VUELTA 

650 LET APP=APP+D (C) 

660 IF LAP*Q0=AM THEN GO TO 91 
O: REM FIN DE CARRERA 

670 RETURN 

680 REM 3-2-1-36-296-2-16-16M ME II IRIE MEM RMEAE 
690 REM ACCIDENTE 

700 CLS 

710 PRINT "HAS TOMADO LA CURVA 
A "¡INT (10*VELO)/103" KPH" 

720 PRINT "Y LA VELOCIDAD MAXIM 
A ERA "5C(C) 

730 GO SUB 2330 

740 PRINT "DERRAPAS FUERA DE LA 
PISTA...” 

750 GO SUB 2330 

760 IF CRASH=1 THEN GO TO 830 
770 PRINT "HAS PERDIDO 20 SEGUN 
DOS, PERO TODAVIA PUEDES VOLVE 
R A LA CARRERA" 

780 LET NUM=NUM+10: LET VELO=IN 
T (2*C(C)/3) 

790 LET PNT=PNT+50 

800 GO SUB 2330 

810 GO TO 570 

820 REM 334364 36 3362-36-30 36 36-334 IEA REN FEA 
830 PRINT ".....Y TE ESTRELLAS 


a a a e a 


850 PRINT "SOLO HAS DURADO "5 IN 
T (10*DIST)/103" METROS, " 

860 PRINT "O "5INT (DIST*100/RR 
)/100;3" VUELTAS, Y EN ESE MOMENT 
o" 

870 PRINT "ESTABAS EN LA POSICI 
ON "5 INT (FP) 


O 


O 


O QQ O 0: O. G- 0 0. 0 


O” 00 O. 0 


890 GO TO 1050 

900 REM 641046 I AI IE IE IE III IE III IIA 
910 REM FIN DE CARRERA 

920 CLS 

930 LET EFLAG=1 

940 FOR X=1 TO 20 

950 PRINT TAB (X)5 "ENHORABUENA 
AE 

960 PRINT TAB (21-X)53 "ENHORABUE 
NA "30$3" ! sa 

970 NEXT X 

980 PRINT  "—-=-=-================= 
990 PRINT "HAS LLEGADO A LA MET 
A"” "EN LA CARRERA DE UNA VUELTA" 
1000 PRINT  "---=-=-=-==-========-=- 
1010 GO SUB 2330 

1020 PRINT "HAS TERMINADO EN LA 
POSICION "5 INT (FP) 

1030 PRINT "TRAS HABER EMPEZADO 
EN LA SEXTA" 

1040 GO SUB 2330 

1950 PRINT "TU VELOCIDAD MEDIA"? 
" HA SIDO DE "“5INT (DIST*180/NU 
M)/100;3" KPH" 

1060 GO SUB 2330 

1070 IF RP<1 THEN LET RP=1 

1080 IF CP<1 THEN LET CP=1 

1990 PRINT "HAS SIDO EL "5INT (A 
BS (RP))53" MAS RAPIDO EN LAS REC 
TAS” 

1100 PRINT "Y EL "5INT (ABS CP)5 
" MAS RAPIDO EN LAS CURVAS" 

1110 PRINT : PRINT "PULSA ?M” PA 


RA EL MISMO CIRCUITO ”N? PA 
RA UNO NUEVO, "*" *F? PARA 
FINALIZAR" 


1120 LET I$=INKEYS: IF I$<>"M" A 
ND I$<>"N" AND I$<>"F" THEN GO 
TO 1120 

1130 IF I$="F" THEN STOP 

1140 GO SUB 2240 


O 


O 
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Oo O O .Q 


4-0 O O 40. 00 


O 
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1150 RESTORE 

1160 IF I$="M" THEN GO SUB 1490 
< LET LAP=L2AP: GO TO 60 

1170 IF I$="N" THEN CLS : GO SU 
B 1250: GO TO 60 

1180 REM 23313132 363 36 3-46 36-36 HE 463 -AE HEAT EE 
1190 REM NOMBRE Y DATOS DEL 


CIRCUITO 
1200 INPUT "CUAL ES TU NOMBRE CO 
NDUCTOR “2 "5A$ 
1210 PRINT 


1220 FOR X=1 TO 3 

1230 PRINT TAB (3x*X)5"0K, BUENA 

SUERTE "3A$ 

1240 GO SUB 2330: NEXT X 

1250 PRINT "304-1263 -1-36-3-1-16-36 33-36-2636 33636 

HEAR 

1260 PRINT "EN QUE CARRERA VAS A 

PARTICIPAR?" 

1270 PRINT 

1280 PRINT " GRAND PRIX BRITANIC 

DO 2650MT :1" 

1290 PRINT " GRAND PRIX ALEMAN 
1790MT :2" 

1300 PRINT " GRAND PRIX ITALIANO 
2200MT :3" 

1310 PRINT " GRAND PRIX DE MONAC 

O 3100MT :4" 

1320 PRINT 

1330 PRINT TAB (7)53"INTRODUCE EL 

NUMERO"; TAB (10)3"(ENTRE 1 Y 4) 

1340 LET K$=INKEYS$ 

1350 IF K$<"1" OR K$>"4" THEN 6G 

OD TO 1340 

1360 LET GP=VAL (K$) 

1370 PRINT "333226 36-16 36-36-36 16 36 36 36 3-36 36 46-36-36 

HEM N MIMI RC ICICARE 

1380 PRINT TAB (7);53"0K, EL CIRCU 


ITO "5 
1390 IF GP=1 THEN PRINT "BRITAN 
ICO" 


1400 IF GP=2 THEN PRINT "ALEMAN 


1410 IF GP=3 THEN PRINT "ITALIA 


O 


O. TO O. De O 6 5D ¿Q.- O: ¿ON 3 


Or O. -0 O 


Oo 0 0 


O 


NO" 
1420 IF GP=4 THEN PRINT "DE MON 
Aco" 
1440 PRINT "331632 36-36 36 36-36-3636 363€ 36-36 36 36 34 
XXI" 
1450 PRINT : PRINT "SOBRE CUANTA 
S VUELTAS ?" 
1460 INPUT LAP: 1F LAP<1 THEN 6 
O TO 1460 
1470 LET LAP=INT (LAP+.5): LET L 
2AP=LAP 
1480 REM 4331336 36 36-36-1303 JE JE IE TE TE-TE JE DEJE IE TE 
1490 REM DATOS DEL BRITANICO 
1500 LET VELO=140 
1510 FUR X=1 TO 9 
1520 READ D(X): REM DISTANCIA 
ENTRE CURVAS 
1530 NEXT X 
1540 DATA 800, 400,250,200,250,30 
9,100,100,250 
1550 FOR X=1 TO 9 
1560 READ C(X)z REM VELOCIDAD 
MAXIMA RECOMENDADA 
1570 NEXT X 
1580 DATA 150,90,175,200,200,90, 
90,150,150 
1590 FOR X=1 TO 9 
1600 READ A(X): REM NUMERO MEDIO 
DE PASOS ENTRE LAS CURVAS 
1610 NEXT X 
1620 DATA 8,4,2,2,2,2,1,1,2 
1630 LET APP=800: LET WW=10: LET 
QU=24: LET RR=2650 
1640 IF GP=1 THEN RETURN 
1650 REM I6-3636-36-3-d6 3636 -3E-M IE ETE TE II IE IE E IE IE 
1660 REM DATOS DEL ALEMAN 
1670 LET VELO=85 
16809 FOR X=1 TO 7 
1690 READ DtX) 
1709 NEXT X 
1710 DATA 600,200,100,150,250,20 
0,200 
1720 FOR X=1 TO 7 
1730 READ C(X) 
1740 NEXT X 


Aa O 0-0 


O 


CL e NS 


O”. ¡Q: ¿0% o “00 0 00 AS 
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1750 DATA 90,175,120,90,200,200, 
175 

1740 FOR X=1 TO 7 

1770 READ A(X) 

1780 NEXT X 

1790 DATA 6,2,1,2,2,2,2 

1800 LET APP=600: LET WW=8: LET 
Q0=17: LET RR=1700 

1810 IF GP=2 THEN RETURN 

1820 REM 3636463036463 4 IE III IE E E E IE IE JE IE AE 
1830 REM DATOS DEL ITALIANO 

1840 LET VELO=108 

1850 FOR X=1 TO 7 

1860 READ D(X) 

1870 NEXT X 

1880 DATA 800,300, 100, 150,300,35 
9,200 

18909 FOR X=1 TO 7 

1990 READ C(X) 

1910 NEXT X 

1920 DATA 120,90,90,150,200,120, 
150 

1930 FOR X=1 TO 7 

1940 READ A(X) 

1950 NEXT X 

1960 DATA 8,3,2,1,3,3,2 

1970 LET APP=800: LET WW=8: LET 
Q0=22: LET RR=2200 

1989 IF GP=3 THEN RETURN 

1990 REM AHHH 29333 II IE IE IE IE IE IE IEEE ME 
2000 REM DATOS DEL DE MONACO 
2010 LET VELO=162.5 

2020 FOR X=1 TO 14 

2030 READ D(X) 

2040 NEXT X 

2050 DATA 400,100,100,300,400,30 
0,150,200,200,200 

2060 DATA 150,150,200,250 

2070 FOR X=1 TO 14 

2080 READ C1X) 

20909 NEXT Xx 

2100 DATA 175,150,175,200,120,20 
0,175,90,175,150 

2110 DATA 150,175,120,150 

2120 POR X=1 TO 14 


O 


O. E Oe 0 lO O -0. 0-0 ¿O O 70 


O 


O 


2130 READ A(X) 

2140 NEXT X 

2150 DATA 4,1,1,3,4,3,1,2,2,2 

2160 DATA 1,2,2,2 

2170 LET APP=400: LET WW=15: LET 

Q0=30: LET RR=3100 

2180 RETURN 

2190 REM VIII MEM METETE EHH DERE DE REI ME HEEE 109 

2200 REM INICIALIZACION 

2210 CLS 

2220 RANDOMIZE 

2230 DIM A(14): DIM C(14): DIM D 

(14) 

2240 LET C=1: LET FP=6: LET PNT= 

O: LET NC=0: LET CP=0 

2250 LET AM=0: LET RP=0: LET APP 

=0 

2260 LET NUM=0: REM NUMERO DE 
MOVIMIENTOS 

2270 LET MOT=100: LET FREN=10: L 

ET TRAY=0: LET DIST=0 

2280 LET EFLAG=0 

2290 LET X=0 

2300 RETURN 

2310 REM I-IId63d6 16 3d IAH TEME IE IE IE IE IE MEE IE IE IE DE 

2320 REM RETARDO 

2330 FOR O=1 TO 1000: NEXT O 

2340 RETURN 


0-0. 0d O O UU 0 0 0 
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¡Y ahora a 
volar! 


Los simuladores de vuelo son probablemente las simulaciones más intere- 
santes que puedes ver. La mayoría de nosotros nunca aprenderemos a volar, 
pero nos gustaría experimentar esa sensación. Un simulador de vuelo te da la 
oportunidad de sentir un poco que estás volando. 

La principal dificultad de un piloto es que tiene que tener en cuenta un 
número de parámetros que cambian a la vez. Ignora cualquiera de ellos —como 
el ángulo en que está volando el avión o el combustible que te queda— 
demasiado tiempo y probablemente dejarás de volar. Aunque este programa no 
ocurre en tiempo real y, por tanto, tienes la oportunidad de pensar antes de 
tomar una decisión, verás que aun esta simulación es un desafío (a veces 
frustrante). 

Ni siquiera hacer despegar el avión es fácil las primeras veces que lo 
intentas. Y cuando consigas elevarte, tendrás que luchar cada segundo para 
conseguir mantenerlo ahí. 

Y cuando intentes aterrizar... 

El sufrir un accidente durante el aterrizaje es un peligroso inconveniente de 
los aviones reales. Cuando estés intentando volar bajo tierra, darás gracias de 
estar volando con tu ordenador. 
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Manejo de los controles 


Esta simulación es la más compleja del libro. Para aprender su uso necesita- 
rás más tiempo que con el resto que ya has estudiado. Este tiempo que 
necesitarás está, sin embargo, ampliamente compensado, ya que es seguro que 
este programa será el que más te guste. El simulador de vuelo tiene otras 
ventajas que lo hacen muy interesante. Tu vuelo se va grabando automática- 
mente; luego, en cada momento que estés todavía en el aire, puedes decirle al 
ordenador que quieres ver de nuevo el vuelo completo desde el principio. Es 
divertido ver cómo pasan rápidamente todas las peripecias de tu vuelo. Una vez 
se llega al punto donde le dijiste al ordenador que querías ver la repetición, el 
control pasa de nuevo a tu poder. 

Piensa que el vuelo tiene tres partes, cada una con sus características 
especiales. La primera parte es el despegue, la segunda el vuelo normal y la 
tercera el aterrizaje. Conseguirás fácilmente llegar a ser un buen piloto si te 
dedicas a cada una de estas secciones por turnos. 

Y no te rindas, incluso si tus primeros veinte intentos de aterrizaje han 
terminado en accidente. La satisfacción que sentirás cuando consigas por prime- 
ra vez un aterrizaje perfecto te compensará de toda la frustración de la etapa de 
aprendizaje. 

Esto es lo que verás cuando ejecutes el programa por primera vez: 


HORIZONTE BRUJULA 
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¿KM. Oz TIEMPO .1 


¿VELOCIDAD DEL AIRE : O 


) 


2> 
Po] ¿ALTIMETRO : O O GRAD. 
> : FUEL : 750 

SS SA SS SS > 


¿ELEVACION: 0 3 ==--=--- 
:>TREN DE ATERRIZAJE FUERA<: 


y 


Arriba a la izquierda está el horizonte. Puede moverse alarmantemente de 
lado a lado si inclinas el avión, ir hacia la parte de abajo de la ventana si 
levantas el morro, o hacia la parte de arriba si lo bajas. Te costará un poco de 


N 


02 


tiempo acostumbrarte a ver esa línea como el horizonte, pero una vez lo hayas 
hecho, verás que produce una impresión de estar volando mucho mayor de lo 
que te imaginabas. 

A la derecha del horizonte está tu brújula. La “G” indica la dirección a la 
que estás apuntando. Siempre se empieza el vuelo mirando hacia el Norte. Más 
abajo del panel de instrumentos puedes mirar la dirección exacta en la misma 
línea del ALTIMETRO, donde pone “0 GRAD.”. 

Los indicadores que están debajo del horizonte y de la brújula informan sobre 
la distancia sobre el suelo que se ha recorrido (el “radio”), el tiempo que ha 
durado el vuelo y la dirección en la que deberías volar para aterrizar (suponien- 
do que seas capaz de mantener durante unos cuantos segundos el avión en el 
aire). Tienes que desviarte menos de 12 grados de esta dirección para aterrizar. 
La dirección necesaria cambia de ejecución a ejecución, pero no cambia durante 
un mismo vuelo. 

Bajo esta línea se encuentran la velocidad del aire, el altímetro (altura desde 
el suelo) y el combustible que te queda. La línea de guiones que termina en un 
“>>” indica la magnitud de cada uno de estos indicadores. Es decir, la línea será 
más larga cuanto más rápido vayas o cuanto más alto subas. 

La elevación es el ángulo de tu avión respecto al suelo. Cuando introduces 
en el ordenador una orden, pulsando una tecla, aparece la orden escrita en la 
posición ocupada actualmente por la línea de guiones que puedes ver en la 
misma línea que ELEVACION. Por último, se te informa sobre si tienes el tren 
de aterrizaje fuera o dentro. 

Tras unas pocas instrucciones, la pantalla aparece así: 


HORIZONTE BRUJULA ) 
: : .N. : ¡a —) 
: : AA : 
S AAA 2 Oo—-X--E 2 [) 
: O bh) 
: : ¿Si : 
sKM. 6 2 TIEMPO 1.6 0806 | [_) 
¿KM. .6 : TIEMPO 1.6 :226 
(A 


¿VELOCIDAD DEL AIRE : 30 


:-> 

:ALTIMETRO : O O GRAD. P] 
22 ls) 
: FUEL : 692 

RSS SNA ARSS > 

A a : ¡A 
:ELEVACION: 20 : MORRO ARRIB E 
:>TREN DE ATERRIZAJE FUERA<: ll 
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El fuel ha disminuido, la velocidad del aire es de 30, y el morro del avión 
forma 20 con el aire. Puedes ver que MORRO ARRIBA es el equivalente 
completo a la última orden que has introducido. 

Un poco más tarde ya estamos en el aire: 


HORIZONTE BRUJULA 


JO 


HIHE HE IE HE HI IE E E 


Ed 
A 
<= 
he 
AH 
a) 
m 
pa 
TU 
o 
—» 
mu 
10) 
o 


¿VELOCIDAD DEL AIRE : 30 


alcoy 
[) :ALTIMETRO : 66 359 GRAD. 
pres 
LL) : 
FUEL : 660 
O a e 2 e 2 a e e e e e e e > 
uE :ELEVACION: 20 : ACELERAR 
A, :>TREN DE ATERRIZAJE FUERA<: 


Necesitas una velocidad del aire entre 45 y 60, y una elevación mayor de 10 
para despegar del suelo. Vamos a probar a girar: 


Po) HORIZONTE BRUJULA 
l——) : .«N E 
: .D: : 
' 2 AAA O 
(MS, HH AE a La 
KAHN MALE 
: .S. S 
PARA RI ob; 
E ¿KM. 1.2 : TIEMPO 2.3 :226 
== A Da A 


¿VELOCIDAD DEL AIRE : 40 


lis : 143 2334 DEG. 

: FUEL : 648 

a > "E 
:ELEVACION: 15 : IZQUIERDA [Al 


:>TREN DE ATERRIZAJE ARRIBA: 


Observa que ahora el tren de aterrizaje está arriba (lo que ahorra combusti- 
ble y reduce la resistencia al aire del avión) y que el horizonte está inclinado, ya 
que el avión está girando hacia la izquierda. La dirección actual son 344 gra- 
dos y el símbolo “4” de la brújula se ha movido para indicar la dirección 
aproximada en que está volando el avión. 


HORIZONTE BRUJULA 5 


: : .N. 2 ES —) 
: AO: De : 

: Ad Sais a, 

: AA : D--X--E : [) 
: AA as lu) 
: XX : O : 

: : .S. : 

LM. 301 A TIEMPO 3.7 5286 7 
a O o o O == 
¿VELOCIDAD DEL AIRE : 59 

s--> 

¿ALTIMETRO : 353 3 GRAD. a 
A A > (0 _) 
: FUEL : 590 

YOR RR OA Ao > 

:ELEVACION: 7 : DERECHA ) 
¿»TREN DE ATERRIZAJE ARRIBA: AA, 


En esta pantalla, tomada unos momentos después, hemos empezado a girar 
a la derecha. La velocidad del aire es de 59, y seguimos elevándonos. Sin 
embargo, la elevación ha bajado; luego el grado de ascensión es menor. Según 
nos vamos nivelando, la línea del horizonte va volviendo a su posición hori- 
zontal: 


2 


á 


53 HORT20NTE BRUJULA 
, : «No ' 


: : 29d. : 
PY : LAR 2 Do—X--E 2 
My) : HAHAHA A 
KK KK 2 A : 
-S. 
== Yo 
NE :KM. 3,6 : TIEMPO 5.3 :226 
A, CUE 
: VELOCIDAD DEL AIRE : 76 
===> 
E :¿ALTIMETRO : 475 15 GRAD. 
Wu) e > 
: FUEL : 525 
mesmo o e e e e e e e e e e e > 
pS] Y o 
1 :ELEVACION: 12 : ACELERAR 
¡, :>TREN DE ATERRIZAJE ARRIBA: 


Como dije en la introducción, hay que tener bajo control una cantidad de 
cosas terrible. Mientras me estaba concentrando en la dirección en que volaba, 
no me he dado cuenta de que la elevación del avión estaba poco a poco 
descendiendo: 


HORIZONTE BRUJULA 
[) DA E | 
lu) : : .N. : 
: : :d. : 
= : A a Sl 
uN : HH a 
¡AO : HRK E ias E 
: : .S. : 
[>] ¿KM. 7.4 : TIEMPO 6.9 :226 
lu) $ O O O SS 
¿VELOCIDAD DEL AIRE : 152 
A OS > 
PJ :<ALTIMETRO : 593 31 GRAD. 
e > 
2 : FUEL : 457 


¿ELEVACION: 12 : ACELERAR 
¿>TREN DE ATERRIZAJE ARRIBA: 


L) 


De pronto me doy cuenta que el morro está mirando hacia abajo (observa 
cómo la línea del horizonte está en la parte de arriba de la ventana) y 


frenéticamente intento ascender: 


HORIZONTE BRUJULA 
: AA NIIA : .N. : 
2 ARA : a : 
: ' A 
: 2 D--X-—E : 
; 5 .S. : 


¿ALTIMETRO : 250 47 GRAD. 


:ELEVACION: 12 : SUBIR 
:>TREN DE ATERRIZAJE ARRIBA: 


Sin embargo, demasiadas cosas están pasando demasiado rápido, y se pro- 


duce un resultado inevitable: 


20 


a] 


CRASH ! 


>] CRASH ! 
ll) CRASH ! 
CRASH ! 
CRASH ! 
ae CRASH ! 
CRASH ! 
¡E CRASH ! 


CRASH ! 


La última pantalla es suficientemente expresiva: 


P) HORIZONTE BRUJULA 

a) ¿ CRx* Q x* S*k : ¿Na : 
:* A ** S* Hx : aa : 
: RX A XX SX*XHzr.. 2 .. 2 

Po) : RO CA xx S* H 2: D--X-02E : 
: A ** S* He l 2 .. 2 .. 2 

_— 2 AX A *% Sk HX 2 cata : 
2 %* ACORAX* A *x*h o; .S. : 

PH== a A : 

O ¿KM. 14.1 : TIEMPO 9.2 :226 

ly) ed : 
“VELOCIDAD DEL AIRE : 273 
RR An > 

) :¿ALTIMETRO : O 84 GRAD. 

lu .> 

Z : FUEL 2: 366 

PRA A A AAA AA AAA A > 


¡ELEVACION:-16 : ACELERAR 
:>TREN DE ATERRIZAJE ARRIBA: 


Ed 


Las órdenes que tienes a tu disposición son: 


repite el vuelo desde el principio hasta el momento actual. 

se usa como acelerador, e incrementa tu velocidad. 

se usa para decelerar. 

para incrementar la elevación. 

para reducir la elevación. 

para girar a la izquierda. 

para girar a la derecha. 

para cambiar el tren de aterrizaje de abajo hacia arriba o de arriba 
hacia abajo. 


-ÍN>O. 50m 
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Recuerda: Para despegar tu velocidad debe estar entre 45 y 60, y tu grado de 
elevación debe ser mayor de 10. Para aterrizar, el tren de aterrizaje debe estar 
fuera (!), la dirección no debe variar más de 12 grados de la indicada debajo de 
la brújula, el altímetro debe marcar menos de 15 y tu velocidad no debe ser 
mayor de 20. Notarás que aterrizar es más difícil que despegar (como en la vida 
real). 

El listado completo de El. SIMULADOR DE VUELO está en el siguiente 
capítulo. 
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El listado 


del Simulador 


de Vuelo 


109 REM SIMULADOR DE VUELO 

20 LET RPT=0 

30 LET LD=INT (RND*350) 

40 DIM E$(1000): REM AQUI SE 

GUARDA EL REGISTRO DEL VUELO 

50 DIM C$(7,8):2 DIM A$(7,14): 
REM ESTAS MATRICES TIENEN LA B 
RUJULA Y EL HORIZONTE 

55 DIM M$(7,14) 

60 REM 0463163043 IE ITEM IE IE METE IE IE METE 

70 GO SUB 2320: REM INICIALIZA 
CION 

80 IF CRASH=0 THEN GO SUB 820 
: REM HORIZONTE /BRUJULA 

790 GO SUB 500: REM IMPRESION 

100 IF CRASH=1 THEN STOP 

110 IF TIERRA=1 AND TFLAG=1 THE 
N PRINT "ENHORABUENA !"”"UN ATE 
RRIZAJE PERFECTO !”: STOP 

120 IF TIERRA=1 AND TFLAG=0 THE 
N PRINT "LAS RUEDAS ESTAS SUBID 


O 


O 


O O 0-0 


O 


211 


212 


AS": GO SUB 1780: GO TO 90 

130 LET T=VELODAIRE: LET MOTOR=0 

140 LET X$=INKEYS$ 

150 IF X$="R" THEN LET RPT=1: 
GO TO 70 

160 IF RPT=1 AND E$(RELOJ+1)=" 
“ THEN LET RPT=0: GO TO 140 

170 1F RPT=1 THEN LET X$=ES$(RE 
LOJ+1) 

180 IF X$="" THEN (GO TO 140 

190 IF RELOJ<999 AND RPT=0 THEN 

LET ES(RELOJ+1)=X$ 

200 IF TAKEOV=1 THEN LET ELEVA 
CION=INT (ELEVACION+RND*2-RND+*3) 
210 IF VELOAIRE<3 THEN GO TO 2 
90 

220 IF X$="Q" THEN LET ELEVACI 
ON=ELEVACION+5: LET EFLAG=53 1F 
ELEVACION>60 THEN LET MOTOR=1 
230 IF X$="A" THEN LET ELEVACI 
ON=ELEVACION-S: LET EFLAG=-5: IF 
ELEVACION<-70 THEN LET MOTOR=- 


240 IF MOTOR<>0 THEN GO SUB 16 


250 IF ALTIMETRO<1 THEN GD TO 
290: REM PARA EVITAR GIROS EN TI 


260 1F X$="Z" THEN LET AA=AA-. 
< LET ANG=ANG-6: IF AAX-3 THEN 
LET AA=-3 . 
270 1F X$="M” THEN LET AA=AA+. 
9: LET ANG=ANG+6: IF AA>3 THEN 
LET AA=3 

280 LET ANG=INT (ANG+RND*—RND+*2 
) 

290 IF X$="L" THEN LET VELODAIR 
E=VELDAIRE+8.5S 

300 IF X$="." THEN LET VELODAIR 
E=VELODAIRE—7 

310 LET VELODAIRE=VELOAIRE-ELEVA 
CION/S 

320 IF TFLAG=1 THEN LET VELOAI 
RE=VELOAIRE-1.5: LET FUEL=FUEL-. 
3 


O 


O 


GC 'Ó 0 O 0 50.0 O 0 


O” 0. 0. O 


O. 0-0: Q 


DO 4 3 3 


330 IF VELOAIRE<0 THEN LET VEL 
DAIRE=0 

340 IF VELDAIRE>400 THEN LET Y 
ELOAIRE=400 

350 IF X$%="1" AND TFLAG=0 THEN 
LET TFLAG=1: GO TO 370 

360 IF X$="1" AND TFLAG=1 THEN 
LET TFLAG=09 

370 LET FUEL=FUEL-(ABS (T-VELODA 
IRE)/10)-3.75 

380 1F FUEL<1 THEN GO SUB 1780 
390 IF TAKEOV=1 THEN GO TO 420 
400 IF ELEVACION>10 AND VELOAIR 
E>45 AND VELOAIRE<60 AND TFLAG=1 
THEN LET TAKEOV=1 

410 IF TAKEOV=0 THEN LET ALTIM 
ETRO=0: GO TO 450 

420 IF TIERRA=0 AND VELOAIRE<30 
THEN LET ELEVAC ION=ELEVACION-5 
: LET ALTIMETRO=9x*ALTIMETRO/10 
430 LET ALTIMETRO=ALTIMETRO+INT 
(((ELEVACION+. 1) *VELDAIRE) +EFLA 
G*VELDATRE / 1000) /80 

440 IF ALTIMETRO<300 AND TAKEOV 
=1 THEN LET ALTIMETRO=ALTIMETRO 
+VELOAIRE /30+ELEVACION 

450 IF ALTIMETRO<0 THEN GO SUB 
1780: REM CRASH 

460 REM MODIFICA LAS DOS SIGUIE 
NTES LINEAS PARA HACER QUE SEA M 
AS FACIL (0 MAS DIFICIL) ATERRIZ 
AR 

470 1F ALTIMETRO>15 AND VELOAIR 
E>20 OR TAKEOV=0 THEN GO TO 80 
480 IF ABS (ANG-LD)<13 OR ABS ( 
ANG+360-LD)<13 THEN LET TIERRA= 
1: GO TO 80 

490 REM 333-116-H-36IE MRE MIA DEM HEM dE 
500 REM IMPRESION 

s10 CLS 

520 PRINT " 
19)5 "BRUJULA” 
530 LET EV=INT (ELEVACION/10) 
540 IF EV>2 THEN LET EV=2 
5590 IF EV<-2 THEN LET EV=-2 


HORIZONTE"5TAB ( 


GS. “On 507 O e O O Ur “O 0 


O” O. O Y 
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O. Q Or O 50 A CO A O 100 “O. O -U 


O 


O 
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560 IF EV<>0 AND TAKEOV=1 AND C 
RASH=0 THEN GO SUB 1920 

570 PRINT "3 ——--—-----=-==-=-=--- 2-—- 
580 FOR J=1 TO 7 

590 PRINT "2 "5A$(J)5" :"5C$(J) 
qe as 

600 LET A$(J)="" 

610 NEXT J 

620 PRINT: “3 ==="===== ==> ==294=3% 
630 LET DIST=DIST+ABS ((COS (EL 
EVACION) ) *VELDAIRE) /360 

640 LET RELOJ=RELOJ+1 


650 PRINT "KM, "5 INT (DIST*i 
0)/10;": TIEMPO "5 INT (RELOJ)/105 
1 “sLD 


660 PRINT "in —------=========-=-=- 

670 PRINT ":VELOCIDAD DEL AIRE 
: "jINT (VELOAIRE) 

680 PRINT ":"50$( TO INT (VELDA 
IRE/20))5">" 

690 PRINT "*ALTIMETRO: "5 INT (A 
LTIMETRO) 5 

700 IF ANG<0 THEN PRINT TAB (1 
9)5360+ANG: " GRAD." 

710 IF ANG>=0 THEN PRINT TAB ( 
19)5ANG3 " DEG." 

720 LET MR=INT (ALTIMETRO/30) : 
IF MR>20 THEN LET MR=20 

730 PRINT ":"50$( TO MR)3">" 

740 PRINT ”": FUEL ¿"5 INT (FU 
EL) 

750 PRINT ":"50$( TO ((20-INT ( 
750/ABS (FUEL))>0)*(20-INT (750/ 
ABS (FUEL)))))353">" 

760 PRINT "1 -=========“=>========> 


770 PRINT ":ELEVACION: "5¡ELEVAC 
ION3" : "32 GO SUB 2210: PRINT U 
$ 

780 IF TFLAG=1 THEN PRINT *":"5 
">TREN DE ATERRIZAJE FUERA<:" 

790 IF TFLAG=0 THEN PRINT ":"s 


o Oo 


O 


O 


">TREN DE ATERRIZAJE ARRIBA: " 


800 


3860 


RETURN 

E 
REM HORIZONTE /BRUJULA 

IF ABS (INT (AA+.5))=3 THEN 
SUB 980 

IF ABS (INT (AA+.5))=2 THEN 
SUB 1070 

IF ABS (INT (AA+.5))=1 THEN 
SUB 11460 

IF INT (AA+.5)=0THEN GO SUB 


1250 


870 


REM LAS DOS LINEAS SIGUIENT 


ES SE USAN PARA ENDEREZAR GRADUA 
LMENTE LAS ALAS 


880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
10950 
1060 
1070 
10980 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 


IF AA>0 THEN LET AA=AA-. 2 
IF AA<0 THEN LET AA=AA+.2 
IF AA>.2 THEN GO TO 1350 
FOR Z=1 TO 7 

LET M$ (8-Z)=A5$ (Z) 

NEXT Z 

FOR Z=i TO 7 

LET A$(Z)=M5$ (7) 

NEXT 2 

GO TO 1350 

REM AA=3 O -—3 

LET A$(1)=" * " 
LET A$(2)=" .*.. " 
LET As$(3)=" A Ñ 
LET A$(4)=" ht e 
LET A$(5)=" ** Be 
LET A$(6)=" xx ze 
LET A$(7)="+x+* Bl 
RETURN 

REM AA=2 OD -2 

LET A$(1)=" A 
LET A$(2)=" +. " 
LET As$(3)=" HA A 
LET A$(4)=" 4H Ni 
LET A$(5)=" xk a 
LET A$(6)="3+x E 
LET A$(7)=" E 
RETURN 

REM AA=1 O —1 

LET A$(1)=" E 


O. O. O. O 


O 


O 
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O 


O 


O. -.Q 


Dr "O" El e 0 
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1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 


1360 
1370 


LET 
LET 
LET 
LET 
LET 
LET 


AS (2)=" Ñ 
as (3)=" RAHIOAE 
as (4)=" HANA e 
AS (5) =" HH Y 
as (6)=" e 
As$1(7)=" : 


RETURN 


REM 
LET 
LET 
LET 
LET 
LET 
LET 
LET 


AA=0 

A$s(1)=" ' 
A$(2)=" " 
AS (3)=" s 
AS$S(4)=" III IIIIII IA RRIAR " 
as (5) =" e 
AS (6)=" se 
as$(7)=" s 


RETURN 
REM 38d d II EI ME IE IE IE IR DERE IE 


REM 


LET 


ASIGNACION DE LAS 
CADENAS DE LA BRUJULA 
F2=ANG-F 1 


IF F2<0 THEN LET FA=INT ( 
F2+375)/30) 

1380 IF F2>=0 THEN LET FA=INT ( 
(F2+15)/30) 

1390 IF FA=12 THEN LET FA=0 
1400 LET C$(1)=" -«N. a 

1410 IF FA=11 THEN LET C$(2)=" 


.B:.. ": GO TO 1450 

1420 IF FA=0 THEN LET C$(2)=" 
..B.. ": GO TO 1450 
1430 IF FA=1 THEN LET C$(2)=" 
..:8. "2: GO TO 1450 
1440 LET C$(2)="  ..t.. _ 
1450 IF FA=10 THEN LET C$(3)=" 
.6 : ..”"s 60 TO 1480 
1460 IF FA=2 THEN LET C$(3)=" 
. 3 6.":s GO TO 1480 
1470 LET C$(3)=" .. 2 ..” 


1480 IF FA=9 THEN LET C$(4)=" 


8-x-- 


ES 


GO TO 1510 


1490 IF FA=3 THEN LET C$(4)=" 


-—x-8 


E”3 


GO TO 1510 


1500 LET C$(4)=" 0D-—-X-—E" 
1510 IF FA=8 THEN LET C$(5)=" 


Bi. 


GO TO 1540 


( 


O 


O 0) 30 -Q =0 


O oO 1D O 0 


Or. O 0, 0) 


o Oo 


O 


O 


O 


1520 IF FA=4 THEN LET C$(5)=" 
. 3: 0.": GO TO 1540 


1530 LET C$(5)=" .. 2 ..” 

1540 IF FA=7 THEN LET C$(6)=" 
.B:1.. ": GO TO 1580 

1550 IF FA=6 THEN LET C$(6)=" 
..B.. ": GO TO 1580 

1560 IF FA=5 THEN LET C$(6)=" 
..:8. ": GO TO 1580 

1570 LET C$(6)="  ,..l.. ” 

1580 LET C$(7)=" .S. " 


1590 IF ANG>360 THEN LET ANG=AN 


G-360 


1600 LET F2=ANG 

1610 IF W>0 THEN LET W=W—. 4 
1620 IF Wx<0 THEN LET W=4W+.4 
1630 RETURN 

1440 REM MOTOR 

1650 IF MOTOR=-1 THEN GOTO 1710 
1660 FOR J=1 TO 10 

1670 PRINT TAB (J);"TE HAS PARAD 


ol” 


1680 NEXT y 

1690 LET VELOAIRE=VELOAIRE / 4 
1700 RETURN 

1710 FOR J=1 TO 10 

1720 PRINT TAB (J)5"CAES EN PICA 


DO !" 


1730 PRINT TAB (21-J)5"DETENLO ! 


1740 NEXT J 
1750 LET ALTIMETRO=4*ALTIMETRO/S 
1760 RETURN 


1770 REM 
1780 REM 
1790 LET 
1800 LET 
1810 LET 
Hx 11"; 


1820 FOR 


MMMM MMM MEME MEM DEMI 

CRASH 

CRASH=1 

ALTIMETRO=0 

N$="x% *C RX A 4% Se 

REM 25 CARACTERES DE 
LARGO 

J=1 TO 20 


1830 PRINT TAB (J)3"CRASH !" 
1840 PRINT TAB (21-J)53"CRASH !" 
1850 NEXT J 

1860 FOR J=1 TO 7 


O. TE O 0 


O”. “O. 9 


O" DY O 70. Y 
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O. ¿7 O: 0 O 20 0: 10 Or 10 O. -O. O: 0 0 


O 
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1870 LET G=INT (RND*11)+1 
1880 LET A$(J)=N$(G TO 14) 


1890 NEXT J 
1909 STOP 


1910 REM 4449 de 3 IET EII RIIIE MIRAR 
1920 REM AJUSTE DEL HORIZONTE 


1930 LET Gó$=" 
M 14 ESPACIOS 
1940 IF EV+3=1 
: RETURN 

1942 1F EV+3=2 
: RETURN 

1944 IF EV+3=3 
: RETURN 

1946 IF EV+3=4 
: RETURN 

1948 IF EV+3=5 
17950 RETURN 
1960 REM EV=-2 


THEN 


THEN 


THEN 


THEN 


THEN 


1979 FOR J=1 TO 4 
1780 LET A$(J)=A$ (J+3) 


1990 NEXT J 


2000 LET A$(5)=6G$: 


LET A$(7)=G$ 
20610 RETURN 
2020 REM EV=-1 


2030 FOR J=1 TO 6 
2040 LET A$(J)=A$ (J+1) 


2050 NEXT J 


2060 LET A%$ (7) =G$ 


2070 RETURN : 
2080 REM EV=1 


GO SUB 


GO SUB 


GO SUB 


GO SUB 


GO SUB 


REM EV=0 


2090 FOR J=6 TO 1 STEP -1 
2100 LET A$(J+1)=A$ (J) 


2110 NEXT J 


2120 LET A$(1)=G$ 


2130 RETURN 
2140 REM EV=2 


2150 FOR J=4 TO 1 STEP -1 
2160 LET A$(J+3)=A$ (J) 


2170 NEXT J 


2180 LET A$(1)=G$: 


LET As (3)=G$ 
2190 RETURN 


": RE 


1960 


2020 


2070 


2080 


2140 


LET A$(6)=6$: 


LET A$(2)=G$: 


2200 REM 40364646 I6 III RE MM IE III HH HE EE 


O O € O 0D. 0 


O 


O 


O 


2210 REM NOMBRE DE LA ORDEN 
INTRODUCIDA 

2220 LET U$="------- is 

2230 IF X$="L" THEN LET U$="ACE 

LERAR" 

2240 IF X$="." THEN LET U$="FRE 

NAR" 

2250 IF X$="Q" AND ALTIMETRO>0 T 

HEN LET U$="SUBIR" 

2260 IF X$="Q" AND ALTIMETRO=0 T 

HEN LET Us$="MORRO ARRIBA" 

2270 IF X$="A" THEN LET U$="MOR 

RO ABAJO" 

2280 IF X$="Z" THEN LET U$="IZQ 

UIERDA" 

2290 IF X$="M" THEN LET U$="DER 

ECHA" 

2300 RETURN 

2310 REM 4 4-49-3-06-16--346-90-2-26-36-H-26-I01260I616 4646 

2320 REM INICIALIZACION 

2330 CLS 

2340 RANDOMIZE 

23390: LET' U6="=-=-=======+======= 

--": REM HAY 21 CARACTERES 

2360 LET TFLAG=1: REM TREN DE 

ATERRIZAJE 1-FUERA O0-—DENTRO 

2370 LET EFLAG=0: REM ANGULO DE 

SUBIDA 

2380 LET W=0: LET ANG=0: LET TAK 

EOV=0: LET TIERRA=0 

2390 LET VELDAIRE=0 

2400 LET DIST=0: REM DISTANCIA 

CUBIERTA * RANGO” 

2410 LET ALTIMETRO=0 

2420 LET ELEVACION=0: REM ANGULO 

DE ELEVACION 

2430 LET AA=0: REM ”ANGULO ALAS 

SE USA PARA IMPRIMIR EL HORIZONTE 

2440 LET FUEL=750: LET CRASH=0: 

LET F2=0: LET Fi=0: REM PARA LA 

RUTINA DE DIRECCION DE BRUJULA 

2450. LET RELOJ=0: REM TIEMPO 

2460 LET X$="" 

2470 RETURN 


O 


Ov “E 20 50 Q 


O 


O 
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Apéndice 


Versiones 
para otras máquinas 


Programas para MSX 


ROBOT DE PUNTOS 


REM 0006060626 6-06 0-96 661661 
REM + * 
REM +* ROBOT DE PUNTOS «+ 
REM + + 
REM 00904644 0696 40 46-46 36-46 36-34 036466 4046 
REM 


100 GOSUB 17301 REM INICIALIZACION 
1109 GOTO 490 
120 REM 33630 04 36 36 4606 46 44-36 30 06 dh M6 10 6 HE 16-06 6 DE 16 6 6 16 06d 
130 REM 

140 REM 

150 REM 

160 REM 

1709 REM 

180 REM 

190 REM 

200 REM 

210 REM 

220 REM 

230 REM 

240 REM 

250 REM 

260 REM 

270 REM 

280 REM 

290 REM 

300 REM 

310 REM 


320 
330 
340 
350 
360 
480 
490 
495 
500 
si0 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
650 
660 
670 
680 
690 
700 


REM 

REM 44443616 36-36-3616 dd 36 DD DIED DDD 061616 DH AH 6 
REM INT VX,HX 
VX=INT(VX+.5) 1: HX=INT(HX+.5) 
RETURN 

A AAA 
REM ese LECTURA DEL PROGRAMA es. 
co=9 

Cco=C0+1 

READ A$ (CO) 

IF AS(CO)="x*" THEN 550 

IF CO<20 THEN 500 

REM 63043640 6 16d 36 06 6 16 M6 DH IE DI MIE IE III IIA 
REM ** EJECUCION DEL PROGRAMA *+* 
CP=0: REM CONTADOR DEL PROGRAMA 
CcP=CP+1 

IF CP=21 THEN 580: REM FIN 

NN=Q 


MS=AS (CP) 

IF M$="*" THEN 610:REM FIN 
N$=LEFTS (M$, 2) 

IF N$="AR" THEN 560: REM ARRANCA 


IF N$="AV" THEN NN=4 
IF N$="AT" THEN NN=2 
IF N$="GI" THEN NN=3 
IF N$="CE" THEN NN=4 
IF N$="VE" THEN NN=5 
IF N$="AZ" THEN NN=6 
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710 1F N$="RE" THEN NN=7 

720 IF N$="FI" THEN NN=9 

730 IF N$="MI"” THEN NN=Q 

750 ON NN GOSUB 780,940,1000,1140,126 

0,1400, 1460, 1530, 1590 

760 GOTO 3570 

770 REM 30436 40 16 46 36 30-36 46 46 46 3644 

780 REM +. AVANZA ++ 

790 MS=MIDS (MS, 4) 

800 IF ASC(M$)=78 THEN MS=MIDS (MS, 5) 

810 Fs="F*" 

820 NUM=VAL (M$) 

830 FOR Ex=1 TO NUM 

8409 IF VX<1 OR VX>PROF THEN 880 

850 IF HX<1 OR HX>ANCHU THEN 880 

860 PSET(HX,VX) 08 PSET (HX,VX),15 

880 IF F$="F" THEN VX=VX+VE 1 HX=HX+HO 

890 IF F$="B" THEN VX=VX-VE 1 HX=HX-HO 

900 GOSUB 340 

910 NEXT 

920 RETURN 

Q30 REM 436063636 36 0644 16 36 16 26 A 

940 REM +... ATRAS 10. 

950 M$=MIDS (M$, 4) 

960 IF ASC(M$)=65 THEN M$=MIDS (M$, 3) 

970 Fs$="B" 

9809 GOTO 820 

990 REM d4646 1426 162636 16-16 dd 

1009 REM +... GIRA ws 

1010 MS=MIDS (MS, 4) 

1020 IF ASC(M$)=65 THEN M$=MIDS (M$, 3) 
1030 NUM=VAL (M6) 

1040 Y=INT (NUM+11.25)/22.5 

1050 IF Y=0 OR Y=16 THEN RETURN 

1060 FOR J=1 TO Y 

1065 IF VE=-2 AND HO=0 OR VE=2 AND HO 

=2 THEN HO=1:GOTO 1130 

1070 IF VE=-2 AND HO=s1 THEN HO=21 GOTO 
1130 

10735 IF VE=-2 AND HO=2 OR VE=0 AND HO 

=-2 THEN VE=-1:G0TO 1130 

1080 IF VE=-1 AND HO=2 OR VE=1 AND HO 

=-2 THEN VE=03G0TO 1130 

1085 IF VE=0 AND HO=2 OR VE=2 AND HO= 

-2 THEN VE=11G0TO 1130 

1090 IF VE=1 AND HO=2 THEN VE=2: GOTO 
1130 

1095 IF VE=2 AND HO=1 THEN HO=0:* GOTO 
1130 

1100 IF VE=2 AND HO=0 THEN HO=-1: GOTO 
1130 

1105 IF VE=2 AND HO=-1 THEN HO=-2: GOT 

O 1130 

1110 IF VE=-1 AND HO=-2 THEN VE=-2:G0 

TO 1130 

1115 IF VE=-2 AND HO=-2 THEN HO=-1:3GO0 

TO 1130 

1120 IF VE=-2 AND HO=-1 THEN HO=0 

1130 NEXT 

1140 RETURN 

1150 REM 4363616361642 36-3-46-3364 

1160 REM + CENTRO +1 

1170 HX=INT ( (ANCHU+. 5) /2) 

1180 VX=INT((PROF+.535) /2) 

1190 VE=-2:H0O=0:2 REM MIRA HACIA ARRIBA 

1200 RETURN 

1250 REM 33362316 3823032 
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1260 REM +. VE X,Y 14% 

1270 P=09 

1280 P=P+1i 

1290 IF MIDS(M$,P,1)="," THEN 1320 

1300 IF P<LEN(M$) THEN 1280 

1310 RETURN3REM 4% ERROR 6% 

1320 VX=VAL (MIDS (M5, 4,P-1)) 

1330 HX=VAL (RIGHTS (M$, LEN (M$)-—P) ) 

1340 GOSUB 340 

1350 IF VX<1 OR VX>PROF THEN 1380 

1360 IF HO<1 OR HO>ANCHU THEN 1380 

1370 PSET(HX,VX) ,03PSET (HX,VX),15 

13809 RETURN 

13790 REM 3436 16 06 46 36-30343616-2 

1400 REM +x.* AZAR se 

1410 HX=INT(RND (-TIME) *ANCHU) 

1420 VX=INT(RND(-TIME)*PROF) 

1430 PSET(HX,VX),0:PSET (HX,VX),15 

1440 RETURN 

NA adi 

14609 REM «e REPITE 4. 

1470 M$=MIDS (MS, 4) 

1480 IF ASC(M$)=73 THEN M$=MIDS$ (M4, 5) 

1490 REC=VAL (M$) 

1500 MARCA=CP 

1510 RETURN 

1520 REM 63436 164646 16-16 36 36-36 46 34 2-26 463516 

1530 REM *%%* FIN REPITE *.*e 

1540 REC=REC-1 

1550 IF REC>0 THEN CP=MARCA 

1560 RETURN 

1570 REM 1124-30 46-36-16 46 041-4616 

1590 REM +. MIRA wwe 

1590 MS=MIDS (M$, 4) 

1500 IF ASC(M$)=63 THEN M$=MIDS (M$, 3) 

1610 NUM=VAL (M6) 

1520 Y=INT (( (NUM+11.25) /22.5)+22.5) 

1630 IF Y=0 OR Y=360 THEN VE=-2:2 HD=9 

1635 IF Y=22.5 THEN VE=-2: HO=1 

1440 IF Y=45 THEN VE=-23 HD=2 

1643 IF Y=67,5 THEN VE=-1 12 HO=2 

1650 IF Y=90 THEN VE=0:1 HO=2 

1655 IF Y=112.5 THEN VE=1: HO=2 

1660 IF Y=133 THEN VE=2: HO=2 

1665 IF Y=157.5 THEN VE=2:HO=1 

1670 IF Y=180 THEN VE=2: HO=09 

1675 IF Y=202.5 THEN VE=2: HO=-1 

15480 IF Y=225 THEN VE=22 HO=-2 

1585 IF Y=247.5 THEN VEz=112 H0=-2 

1590 IF Y=270 THEN VE=01 HO=-2 

1693 IF Y=292.5 THEN VE=-1: HO=-2 

1700 IF Y=315 THEN VE=-21 HO=-2 

1703 IF Y=337.5 THEN VE=-2:HO=1 

1710 RETURN 

1720 REM 3301634163606 36-20-26 26 36-20 16 36-26-1646 36 HDI Hd 

1730 REM eses INICIALIZACION 1363633 

1740 KEYOFF:SCREEN 2:POKE -835,255:2 CL 

S: COLOR 15,0,0 

1750 ANCHU=256 

1760 PROF=192 

1770 VE=-2:H0=0:REM EMPIEZA MIRANDO 
HACIA ARRIBA 

1780 DIM A$(20): REM MATRIZ PARA EL 
PROGRAMA DEL 
ROBOT 

1790 VX=0:HX=0 

1800 RETURN 


SIMULACION DE UN 
ATERRIZAJE ESPACIAL 


e aaa 
2 REM + + 
3 REM * SIMULACION DE UN ATERRIZAJE + 
4 REM + ESPACIAL * 
S REM + + 
6 REM 143616 46-10 30 30-30 36 3-06 36 3030 00 20 dE 300 00d 36d 30 0 36 26 86 46 36d 
7 REM 

10 KEYOFF:3 SCREEN 1 

20 COLOR 15,4,4:2CLS 

30 REM 46464444 0616 36 06 06 26 dE 44 06 00 dd 

40 REM VALORES INICIALES 

50 FUEL=INT(RND (-TIME) +40) +200 

60 VEL=INT(RND (-TIME) +20) -6 

70 ALTURA=300- (RND (-TIME) +10) 

909 PRINT TAB(2)3 "INTRODUCE EL EMPUJE 
(0-9) "¿PRINT 

100 PRINT TAB(5)5"0=EMPUJE MINIMO” 
110 PRINT TAB(5)3"9=EMPUJE MAXIMO" :2 PR 
INT 

120 PRINT TAB(1)5”"FUEL"5TAB(8) 5 "VELOC 
IDAD"3TAB (20) 3 "ALTURA" 2 PRINT 

130 REM 0104636 0-10 06 36 36 06-20 4% 46-20 30 00-40 46 3630 

140 REM ** BUCLE PRINCIPAL ++ 

150 GOSUB 470 

160 IF FUEL<=0 THEN FUEL=0: EMPUJE=0: G 
OTO 200 

170 AS=INKEYS 

190 IF A$<"0" OR A$>"9" THEN GOTO 170 
185 SOUND 0,VAL (A$) +15: SOUND 1,01 SOUN 
D 7,254: 50UND 8,16: SDUND 12,1: SOUND 1 
3,1 

190 EMPUJE=VAL (A6)+. 1 

200 FUEL=FUEL-EMPUJE 

210 SS=EMPUJE-2 

220 EMPUJE=0 

230 ALTURA=ALTURA+VEL+SS/4 

240 VEL=VEL+S58S 

250 IF ALTURA<=10 THEN 270 

260 IF ALTURA>10 THEN 150 

270 IF VEL>-9 AND VEL<S THEN 320 

280 GOSUB 450 

290 PRINT "HAS CHOCADO CON LA SUFERFI 
CIE"52PRINT STRINGS (29, 35) 

295 SOUND 0,1:2SOUND 1,0:SOUND 6,31:S0 
UND 7,128:SOUND 8, 16:SOUND 12,200: SOU 
ND 13,1 

300 IF ALTURA>0 THEN ALTURA=-ALTURA 


SIMULADOR 


1 REM 340600163626 36 16 46-36-3646 46 36 M6 dd 6H EH 


2 REM + * 
3 REM * SIMULADOR DE VUELO + 
4 REM + * 


RI dde 


310 GOTO 360 

320 PRINT:PRINT TAB(1)3"HAS ATERRIZAD 
O FELIZMENTE !”"2*PRINT TAB(1)3STRING$( 
27,33) 

330 GOSUB 510 

340 PRINT+PRINT "TU PUNTUACION: "5-INT 
(109*FUEL / (VEL-ALTURA) ) 2 PRINT 

350 ALTURA=09 

360 GOSUB 450 

370 PRINT "LA LECTURA FINAL ERA: "PRI 
NT 

380 PRINT TAB(1)3 "FUEL "5 TAB (8) 3 "VELOC 
IDAD"3 TAB (20) 3 "ALTURA" 

390 GOSUB 470:PRINT 

400 GOSUB 450 

4109 IF ALTURA>=0 THEN 580 

420 IF ALTURA<O THEN PRINT "NUEVO CRA 
TER EN LA LUNA DE"*PRINT INT(ABS(100x 
(ALTURA+.2)/3))/1003 "METROS DE PROFUN 
DIDAD !!!” 

430 PRINT:+PRINT "TU PUNTUACION: "5-INT 
(109*FUEL / (VEL-ALTURA) ) ¿PRINT 

440 GOTO 540 

450 PRINT STRINGS$ (29, 95) 

460 RETURN 

479 PRINT INT(100*FUEL)/1005 

480 PRINT TAB(10)5-INT(100*VEL)/1003 
490 PRINT TAB(19)5 INT(100* ALTURA) /100 
500 RETURN 

510 REM ss ALUNIZAJE v4.1. 

520 PRINTÍCOLOR 15,1,1:2 FOR B=40 TO 51 
s»FOR N=1 TO 1001NEXT N:LOCATE 9,25: PR 
INT "ENHORABUENA"s PLAY "T235L64N=B5 "3 
NEXT B 

530 RETURN 

540 REM +. CHOQUE ++1e% 

550 PRINT "AUN TE FALTA UN POCO DE":*P 
RINT "PRACTICA, PERO NO TE"3PRINT "DE 
SANIMES 

560 PRINT 

570 PRINT 

580 REM %** CONTINUAR JUEGO +» 

590 PRINT "QUIERES VOLVER A PILOTAR L 
A NAVE? (S/N)"3 

600 INPUT R$sIF R$="S" THEN 10 ELSE 1 
F R$="N" THEN SCREEN 0: END 

620 GOTO 600 


DE VUELO 


6 REM 

10 RPT=0 

20 LD=INT(RND(-TIME)*350)+1 

30 DIM E$(1000): REM AQUI SE GUARDA EL 
REGISTRO DE VUELO 
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40 DIM C$(7),A$(7):REM ESTAS MATRICES 
TIENEN LA BRUJULA Y EL HORIZONTE 
50 CLS 
A ie 
70 GOSUB 2320:REM INICIALIZACION 
80 IF CRASH=0 THEN GOSUB 820: REM 
HORIZONTE /BRUJULA 
90 GOSUB 35002: REM IMFRESION 
100 IF CRASH=1 THEN END 
110 IF TIE=1 AND TFLAG=1 THEN PRINT " 
ENHORABUENA! UN ATERRIZAJE PERFECTO!” 
¿FOR 2%=250 TO 0 STEP -2:SOUND 0,Z7%:S 
OUND 1,12SOUND 7,2542 SOUND 8, 1463 SOUND 
12,50: SOUND 13,12 NEXT: END 
120 IF TIE=1 AND TFLAG=0 THEN PRINT " 
LAS RUEDAS ESTAN SUBIDAS”:GOSUB 1780: 
GOTO 90 
130 T=VAIRE1MOT=0 
140 X$=INKEYS$ 
150 IF X$="R" THEN RPT=1:GOTO 709 
160 IF RPT=1 AND ES(RELOJ+1)="" THEN 
RPT=0:GOTO 140 
170 IF RPT=1 THEN X$=E$ (RELOJ+1) 
180 IF X$="" THEN 140 
190 IF RELOJ<999 THEN ES (RELOJ+1)=X$ 
200 IF-TA=1 THEN ELEVA=INT(ELEVA+RND (€ 
—TIME) +2-RND (—TIME)*3) 
210 IF VAIRE<3 THEN 290 
220 IF X$="Q" THEN ELEVA=ELEVA+5: EFLA 
G=5:1 1F ELEVA>60 THEN MOTOR=1 
230 IF X$="A" THEN ELEVA=ELEVA-53 EFLA 
G=-51 1F ELEVA<-70 THEN MOTOR=-1 
240 IF MOT<>0 THEN GOSUB 1440 
250 IF ALTIX<1 THEN 290: REM 
PARA EVITAR GIROS EN TIERRA 
260 IF X$="Z" THEN AA=AA-. 5: ANG=ANG-6 
11F AA<-3 THEN AA=-3 
270 IF X$="M" THEN AA=AA+. 5: ANG=ANG+6 
3 1F AA>3 THEN AA=3 
290 ANG=INT (ANG+RND (-TIME) *2-RND (-TIM 
E)*2) 
290 1F X$=" " THEN VATRE=VAIRE+8.5 
300 IF X$="." THEN VAIRE=VAIRE-7 
310 VAIRE=VAIRE-ELEVA/5 
320 IF TFLAG=1 THEN VAIRE=VAIRE-1.5:F 
UVEL=FUEL-.5 
330 IF VAIRE<O THEN VAIRE=0 
340 IF VAIRE>400 THEN VAIRE=400 
350 IF X$="1" AND TFLAG=0 THEN TFLAG= 
1:GOTO 370 
360 IF X$="1" AND TFLAG=1 THEN TFLAG= 
0 
370 FUEL=FUEL-(ABS (T-VAIRE) /10)-3.75 
380 IF FUEL<i THEN GOSUB 1780 
390 IF TA=1 THEN 420 
400 IF ELEVA>10 AND VAIRE>45 AND VAIR 
E<x560 AND TFLAG=1 THEN TA=1 
410 IF TA=0 THEN ALTI=0:GOTO 450 
420 IF TIE=0 AND VAIRE<30 THEN ELEVA= 
ELEVA-52 ALTI=9*ALTI/10 
430 ALTI=ALTI+INT (((ELEVA+. 1) + VAIRE) + 
EFLAG+*VAIRE/1000) /80 
440 IF ALTIX300 AND TA=1 THEN ALTI=AL 
TI+VAIRE/30+ELEVA 
430 IF ALTI<O THEN GOSUB 1780: REM 
CRASH 


460 REM MODIFICA LAS DOS LINEAS 
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SIGUIENTES PARA HACER 
QUE SEA MAS DIFICIL 
(O MAS FACIL) ATERRIZAR 
470 IF ALTI>15S AND VAIRE>20 OR TA=0 T 
HEN 80 
480 IF ABS(ANG-LD)<13 OR ABS(ANG+366- 
LD)><13 THEN TIE=1 


485 GOTO 80 
IN iii 
500 REM IMPRESION 


510 LOCATE 4,0:PRINT STRING$(30,43):L 

OCATE 4,10:PRINT STRINGS$ (30, 45) : LOCAT 

E 4,19:1PRINT STRING$ (30,45): LOCATE 4, 

22:3PRINT STRINGS$ (30, 45) 

515 FOR T=0 TO 22:1LOCATE 3,T:PRINT CH 

R$(124) 1: LOCATE 34,T1PRINT CHR$(124):N 

EXT: FOR T=1 TO 9:LOCATE 22,T:PRINT CH 

R$ (124) ¿NEXT 

520 LOCATE 9,1:+PRINT "HORIZONTE": LOCA 

TE 25,12 PRINT "BRUJULA" 

530 EV=INT(ELEVA/10) 

540 IF EV>2 THEN EV=2 

550 IF EV<-2 THEN EV=-2 

560 IF EV<>0 AND TA=1 AND CRASH=0 THE 

N GOSUB 1920 

570 LOCATE 4,3 

5809 FOR J=1 TO 7 

590 LOCATE 6,J+2:+PRINT A$(J):LOCATE 2 

5,J+2:PRINT C$(J) 

600 AS (J)="" 

619 NEXT J 

620 DIST=DIST+ABS ( (COS (ELEVA) )*VATRE) 
/360 

630 RELOJ=RELOJ+1 

640 LOCATE 5,11sPRINT "Km. "3 INT(DIST+* 
10)/101LOCATE 14,11sPRINT CHR$(58)5"T 
IEMPO"3 INT(RELOJ) /105 CHR$ (58) ¿LD 

660 LOCATE 5,13 

670 PRINT "VEL. AIRE: "5 INT(VAIRE) 

680 LOCATE 5,14s+PRINT LEFTS(0$, INT(VA 
IRE/20) ) 5 CHR$ (207) ¿ STRINGS$ (25- INT ( (VA 
IRE/20)),32) 

690 LOCATE 5,15: PRINT "ALTIMETRO: "5 IN 
T(ALTI)3 

700 IF ANG<O THEN PRINT TAB(22)5360+A 
NG3 "Grad." 

710 1F ANG>=0 THEN PRINT TAB (22)5ANG5 
"Grad." 

720 MR=INT(ALTI/30): 1F MR>20 THEN MR= 

20 

730 LOCATE 5,16: PRINT LEFTS(0$, MR) 5 CH 

R$ (207) 3 STRINGS$ (25-MR, 32) 

740 LOCATE 5,17:PRINT "FUEL 2"5IN 
T(FUEL) 

750 LOCATE 5,18:PRINT LEFT$(0$, INT(FU 

EL /40) ) 3 CHR$ (207) 5 STRING$ (25-INT (FUEL 

/40),32) 

760 PRINT 

770 LOCATE 5,20: PRINT "ELEVACION: "5EL 

EVA3 CHR$ (58) 5 :GOSUB 2210: PRINT US$ 

780 1F TFLAG=1 THEN LOCATE 5,21:PRINT 
“>TREN DE ATERRIZAJE FUERAX  " 

790 1F TFLAG=0 THEN LOCATE 5,21:FPRINT 
“>TREN DE ATERRIZAJE ARRIBAX " 

800 RETURN 

810 REM 364633436 36 36-36 86 36-34-46 36H DEE DEE MIME DE MIE ME 

820 REM HORIZONTE /BRUJULA 


830 
80 

840 
070 
eso 
160 
860 
250 
870 


eso 
870 
909 
910 
920 
930 
940 
930 
960 
970 
980 
990 


1000 A$(2)=" 


IF ABS(INT(AA+.5))=3 THEN GOSUB 9 
IF ABS(INT(AA+.5))=2 THEN GOSUB 1 
IF ABS(INT(AA+.5))=1 THEN GOSUB 1 
IF ABS(INT(AA+.5))=0 THEN GOSUB 1 


REM LAS DOS LINEAS SIGUIENTES SE 

UTILIZAN PARA ENDEREZAR LAS 
ALAS GRADUALMENTE 

IF AA>O THEN AA=AA-. 2 

IF AAX<O THEN AA=AA+.2 

IF AA>.2 THEN 1350 

FOR Z=1 TO 7 

MS (9-Z)=A56 (2) 

NEXT Z 

FOR Z=1 TO 7 

AS (Z)=M8 (7) 

NEXT Z 3 

GOTO 1350 

REM AA=3 o -3 

Abi)" .. 


1010 AS(T)=" .. " 


1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 


AS (4)=" .. . 
Ars)" .. " 
AS(6)="  «. e 
AS (7)="0. e 
RETURN 

REM AA=2 o -2 

AsS(i)=" A 
As(2)=" ..o 
As)" 
As5(4)=" +... > 
as)" +... bi 
AS (6) =" 44 » 
As5(7)." > 
RETURN 


1160 REM AA=1 o --1 


1170 


Asi)" ” 


1180 AS(2)=" a 


1190 
1200 A$(4)=" 
1210 
1220 
1230 


HUA 
.... se 
AS (5) =" 0.1.1... Le 
AS 56)" me 
AS (7)=" ” 


as)" 


1240 RETURN 


1250 


REM AA=0 


1260 AS(1)=" le] 

1270 AS(2)=" ” 

12980 AS(3)=" e 

1290 AS(4)m" 1634463616 162020 000 

1300 AS(5)=" ” 

1310 A$(6)=" . 

1320 A$(7)=" '. 

1330 RETURN 

1340 REM 34306 06 46 36 36 26 36 4% 36 36 36 80-16 M6 16 DE M6 DD EME IE 


1350 REM 


ASIGNACION DE LAS CADENAS 
DE LA BRUJULA 


1360 F2=ANG-F1 

1370 IF F2<0 THEN FA=INT((F2+375)/30) 
1380 IF F2>=0 THEN FA=INT((F2+15)/30) 
13909 1F FA=12 THEN FA=0 


1400 CS(1)=" 
14109 IF FA=11 THEN C$(2)=" 


.«N. ” 
«Br... ":6G 


OTO 14509 


1420 IF FA=0 THEN C$(2)=" ..l.. ":GOT 
oO 14509 

1430 IF FA=1 THEN C$(2)=" ..:08. ":GOT 
O 1450 

1440 C$(2)=" ..3.. " 

1450 IF FA=10 THEN C$(3)=".Q 2 .."”:G0 
TO 1480 

1460 IF FA=2 THEN C$(3)=".. : 6.":GOT 
O 1480 


1470 CS(D)=".. 3 ..” 

1480 IF FA=9 THEN C$ (4)="0Q0-X--E"2GOT 
O 1510 

1490 IF FA=3 THEN C$(4)="0--X-€E":GOT 
O 1510 

1500 C$(4)="D--X-—-E" 

1510 IF FA=8 THEN C$(5)=".Q : 
DO 1540 

1520 IF FA=4 THEN C$(5)=".. 2: €.":GOT 
O 1540 

1530 CS(S)=".. . ..” 


. "2 GOT 


1540 IF FA=7 THEN C$(6)=" .Qr.. ":2GOT 
o 1580 

1550 IF FA=6 THEN C$(6)=" .... ":2GOT 
oO 15809 

1560 IF FA=5 THEN C$(6)=" ..238. ":GOT 
O 1580 Ñ 


1570 CSlbr=" mt... " 

1580 CS(7)=" .S. " 

1590 IF ANG>360 THEN ANG=ANG-360 

1600 F2=ANG 

1610 IF W>09 THEN W=W-.4 

1620 IF W<O THEN W=bi+. 4 

1630 RETURN 

1640 REM 

1650 IF MOT=-1 THEN 1710 

1660 FOR J=1 TO 10 

1670 LOCATE J,25+PRINT "TE HAS PARADO 
s. 

1675 FOR I=1 TO 1000:NEXT I:LOCATE 1, 

I:PRINT 

1680 NEXT J 

1690 VAIRE=VAIREPRINTA 

1700 RETURN 

1710 FOR J=1 TO 19 

1720 PRINT TAB(J)5"CAES EN PICADO !" 

1730 PRINT TAB(21-3)3"DETENLO !!" 

1740 NEXT J 

1750 ALTI=4*ALTI/S 

1760 CLS: RETURN 

1770 REM 304646 46 4-36 46 16 46-46 36-36 46-46 46 

1780 REM «..x CRASH we. 

1790 CRASH=11 ALTI=0 

1800 BEEP1BEEP 

1910 M6="* *C Rex A sx. Se He 

EM 25 CARACTERES DE LONGITUD 

1820 LOCATE 1,25: FOR J=1 TO 20 

1839 PRINT TAB(J+5)5"CRASH !" 

1840 PRINT TAB(26-J)3 "CRASH !" 

1850 NEXT J 

1860 FOR J=1 TO 7 

1870 G=INT(RND(1)11)+1 

1880 AS(J)=MIDS(M$,G, 14) 

1890 NEXT J 

1900 CLS: RETURN 

1910 REM 343646 3646 36-36 46-36 -8E-IE-DE SE DE IÓ DE IEA DE DE DEI IEIEE 

1920 REM «* AJUSTE DEL HORIZONTE ** 

1930 G$=STRING$ (14,32) 


LR 
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1940 ON EV+3 GOSUB 1960,2020, 2070, 208 


9,2140 


1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 


2220 
2230 
2240 


RETURN 

REM EV=-2 

FOR J=1 TO 4 

AS(J)I=AS (J+3) 

NEXT J 

AS (5) =G8: AS (6)=G$: A$ (7) =G$6 

RETURN 

REM EV=-1 

FOR J=1 TO 6 

AS(J)=AS (J+1) 

NEXT J 

AS (J)=G6 

RETURN: REM EV=0 

REM EV=1 

FOR J=6 TO 1 STEP -1 

AS (J+1)=A56 (J) 

NEXT J 

AS (1)=GS6 

RETURN 

REM EV=2 

FOR J=4 TO 1 STEP -1 

AS (J+3)=A6 (3) 

NEXT J 

AS (1)=668:A$ (2) =G5: A$ (3) =G$ 

RETURN 

REM 4400463426 36-26-06 34 d6-26 36 26 36-46 36 26d 

REM NOMBRE DE LA ORDEN 
INTRODUCIDA 

US=STRINGS$ (12,219) 

IF X$=" "” THEN U$="ACELERAR" 

IF X$="." THEN US="FRENAR" 
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2230 IF X$="0Q" AND ALTI>0 THEN U$="SsUu 
BIR" 
2260 IF X$="0Q" AND ALTI=0 THEN U$="MO 
RRO ARRIBA” 
2270 IF X$="A" THEN U$="MORRO ABAJO" 
2280 IF X$="Z" THEN U$="IZQUIERDA" 
2290 IF X$="M" THEN Us="DERECHA" 
2294 Gs=STRINGS$ (10,32) 
2293 IF LEN(US)<12 THEN U$S=LEFTS (U$S, L 
EN (US) ) +RIGHTS (G$, 12-LEN(US$) ) 
2300 RETURN 
2310 REM 4006.36 3% 3036-36-36 36 00-36 16 36 dd 6 M6 16-160 16 HE 26 16 36 0d 
23209 REM INICIALIZACION 
2330 KEYOFF1SCREEN 0: CLS: COLOR 15,0,0 
2340 POKE -853,255 
2350 QUS=STRINGS (20,219) 
2360 TFLAG=11: REM TREN DE ATERRIZAJE: 
1-FUERA, 0-DENTRO 
2370 EFLAG=01 REM ANGULO DE SUBIDA 
2380 ANG=0:3 TA=0: TIE=0 
2390 VAIRE=0 
2400 DIST=0: REM DISTANCIA CUBIERTA 
2410 ALTI=0 
2420 ELEVA=0: REM ANGULO DE ELEVACION 
2430 AA=01REM ”ANGULO ALAS”. SE USA 
PARA IMPRIMIR EL HORIZONTE 
2440 FUEL=750:3 CRASH=01:F2=0:F1=0:2 REM 
PARA LA RUTINA DE DIRECCION DE LA 
BRUJULA 
2430 RELOJ=01 REM TIEMPO 
2460 X6="" 
2470 GOSUB 1240 
2480 RETURN 


Programas para Amstrad 


ROBOT DE PUNTOS 


3 PREM 0414.00.4% 24 00 40 40 40 49 00-20 40 00 20 40 40 40 40 
2 REM +« e 
3 REM * ROBOT DE PUNTOS + 
4 REM e e 
5 REM 40000 0040 04 00 00 00 40 40 00 0 09 40 40 40 30 00 
6 REM 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
e70 
280 
290 
300 
310 
320 
330 


GOSUB 1730:REM »*+* INICIALIZACION +*s. 
GOTO 490 
REM 0000 00 20 06 00 00 20 00 00 00 00 20 0 d6 00 00 20 ME 00 00 00 20 20 30 00 40 46 26 00 0d 
REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


REM 
REM 3000 00 46 30 00 00 00 20 20 30 00 30 0 20 DO 0 00 00 20 00 36 20 30 20 00 200 


340 
350 
360 
480 
490 
495 
500 
s10 


REM INT VX,HX 
VX=INT(VX+0.5):HX=INT(HX+0.5) 

RETURN 

A iii 
REM eun... LECTURA DEL PROGRAMA 444 4% 
CONTADOR=0 

CONTADOR=CONTADOR+1 

READ AS(CONTADOR) ¿AS (CONTADOR) =UPPER 


$ (AS (CONTADOR) ) 


520 
530 
5340 
550 
560 
570 
seo 
590 
600 
610 
620 
630 
650 
660 
670 
680 
690 
700 
710 
720 
740 


IF AS(CONTADOR)="%*" THEN 550 

IF CONTADOR<20 THEN 500 

CA iii 
REM eses EJECUCION DEL PROGRAMA 0141 + 
CP=0:REM ** CONTADOR DE PROGRAMA +* 


CP=CP+1 

IF CP=21 THEN 5S80:REM FIN 
Nn=0 

MS=AS (CP) 

IF MS="*" THEN 610:REM FIN 
NS=LEFTS(M$,2) 


IF N$="AR" THEN 560:REM *ARRANCA+* 
IF N$="AVY" THEN Nn=1 
IF N$="AT" THEN Nn=2 
IF N$="GI" THEN Nn=3 
IF N$="CE" THEN Nnz=4 
IF N$="VE" THEN Nn=5 
IF N$="AZ" THEN Nnz=ó 
IF N$="RE" THEN Nn=7 
IF N$="F1" THEN Nn=8 
1F N$="MI" THEN Nn=9 
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750 ON Nn GOSUB 780,940,1000,1160,1260,1 1270 P=0 


400, 1460, 1530, 1580 1280 P=P+1 
760 GOTO 570 1290 IF MIDS(MS$,P,1)="," THEN 1320 
O 1300 IF P<XLEN(M$) THEN 1280 
780 REM sesemseccee AVANZA 26 3626 6 dd dd 1310 RETURN:REM ss ERROR + 
790 MS=MIDS(MS$,4) 1320 VX=VAL(MIDS(M$,4,P-1)) 
800 IF ASC(M$)=78 THEN M$=MIDS$(M5$,5) 1330 HX=VAL(RIGHTS(MS,LEN(M$)-P)) 
810 Fs$="F" 1340 GOSUB 340 
820 NUM=VAL (M5 ) 1350 IF VX<1 OR VX>PROF THEN 1380 
830 FOR Ex=1 TO NUM 1360 IF HO<1 OR HO>ANCHU THEN 1380 
840 IF VX<1 OR VX>PROF THEN 880 1370 PLOT HX»,VX 
850 IF HX<1 OR HX>ANCHU THEN 880 1380 RETURN 
860 PLOT HX),VX»0O:PLOT HX»VX»1 1390 REM dede 10 16 16 16 40 00 30 46 30 04 6 96 
880 IF F$="F" THEN VX=UX+VE : HX=HX+HO 1400 REM +... AZAR mu... 
890 IF F$="B" THEN VX=VX-VE : HX=HX-HO 1410 HX=INT(RND*ANCHU ) 
900 GOSUB 340 1420 VX=INT(RND*PROF ) 
910 NEXT 1430 PLOT HX»,VX»1 
920 RETURN 1440 RETURN 
930 REM 0640 44 2% 04 34 00 06 40 00 26 30 30 00d 1450 REM de 04 00 06 00 06 00 06 40 30 00 24 90 00 0000 
940 REM +... ATRAS seem 1460 REM «uuu... REPITE uuu. 
950 M$=MID$(M$,4) 1470 MS=MIDS(MS,4) 
960 IF ASC(M$)=65 THEN MS=MIDS(M$,3) 1480 IF ASC(M$)=73 THEN MS=MIDS(M$,5) 
970 F$="B" 1490 RECONT=VAL (M5) 
980 GOTO 820 1500 MARCADOR=CP 
IA di 1510 RETURN 
1000 REM sw.” GIRA ss... 1520 REM 000.0 06 00 06 06 de 30 40 00 10 30 10 00 40 10 16 40 46 
1010 MS=MIDS(M$,4) 1530 REM «+... FIN REPITE +...» 
1020 IF ASC(M$)=65 THEN MS=MIDS(M5$,3) 1540 RECONT=RECONT-1 
1030 NUMaVYAL (M5) 1550 IF RECONT>O THEN CP=MARCADOR 
1040 Y=INT((NUM+11.25)/22.5) 1560 RETURN 
1050 IF Y=0 OR Y=16 THEN RETURN 1570 REM 04.00.10 00 00 09 30 30 db 44 20 40 0046 
1060 FOR J=1 TO Y 1580 REM +... MIRA mu... 
1065 IF VE=-2 AND HO=0 OR VE=2 AND HO=2 1590 MS=MIDS(MS,4) 
THEN HO=1:GOTO 1130 1600 IF ASC(M8)=65 THEN MS=MID$(M$,3) 
1070 IF VE=-2 AND HO=1 THEN HO=2:GOTO 11 1610 NUM=VAL (M6 ) 
30 1620 Y=INT(((NUM+11.25)/22.5)*22.5) 
1075 IF VE=-2 AND HO=2 OR VE=0 AND HO=-2 1630 IF Y=0 OR Y=360 THEN VE=-2:H0=0 
THEN VE=-1:GOTO 1130 1635 IF Y=22.53 THEN VE=-2:H0=1 
1080 IF VE=-1 AND HO=2 OR VE=1 AND HO=-2 1640 IF Y=45 THEN VE=-2:HO=2 
THEN VE=0:GOTO 1130 1645 1F Y=67.5 THEN VE=-1:HO=2 
1085 IF VE=0 AND HO=2 OR VE=2 AND HO=-2 1650 IF Y=90 THEN VE=0:HO=2 
THEN VE=1:GOTO 1130 1655 IF Y=112.5 THEN VE=1:+HO=2 
1090 IF VE=1 AND HO=2 THEN VE=2:G0OTO 113 1660 IF Ym133 THEN VE=2:H0=2 
o 1665 IF Y=157.5 THEN VE=2:HO=1 
1095 IF VE=2 AND HO=1 THEN HO=0:GOTO 113 1670 IF Y=180 THEN VE=2:H0=0 
(o) 1675 IF Y=202.5S THEN VE=2:HO=-1 
1100 IF VE=2 AND HO=0 THEN HO=-1:GOTO 11 1680 IF Y=m225 THEN VE=2:HO=-2 
30 1685 IF Y=247.5 THEN VE=1:HO=-82 
1105 IF VE=2 AND HO=-1 THEN HO=-2:GOTO 1 1690 IF Y=270 THEN VE=0:HO=-2 
130 1695 IF Y=292.5 THEN VE=-1:HO=-2 
1110 IF VE=-1 AND HO=-2 THEN VE=-2:GOTO 1700 IF Y=315 THEN VE=-2:H0O=-2 
1130 1703 IF Y=337.5 THEN VE=-2:HO=-1 
1115 IF VE=-2 AND HO=-2 THEN 'HO=-1:GOTO 1710 RETURN 
1130 1720 REM 0 30.14.06.00 06:00 00 06-40 08 00 10 10 dd DO 00 0 00 0 00 00 00 00 00 000 
1120 IF VE=-2 AND HO=-1 THEN HO=0 1730 REM wuun.*s* INICIALIZACION en..n.. 
1130 NEXT 1740 MODE 1: INK 0,0: INK 1,26:BORDER O 
1140 RETURN 1750 RANDOMIZE TIME 
1150 REM 46 44 30 4 26 16 1 30 24 40 24 d0 4 40 0 26d 1770 ANCHU=440 
1160 REM were... CENTRO 113011 1780 PROF=400 
1170 HX=INT((ANCHU+0.5)/2) 1810 VE=-2:H0=0:REM EMPIEZA MIRANDO 
1180 VX=INT((PROF+0.5)/2) HACIA ARRIBA 
1190 VE=-2:H0=0 ¿REM MIRA HACIA ARRIBA 1820 DIM A$(20):REM PARA EL PROGRAMA DEL 
1200 RETURN ROBOT 
1250 REM des 4 0 36 30 20 dt 30 3 20 3h dE dE 00 36 dE dÓ E 00 4 00 dd 4 0 00 10 0 de 1830 VX=0:HX=0 
1260 REM VE X,Y 1840 RETURN 
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SIMULACION DE UN 
ATERRIZAJE ESPACIAL 


1 REM 4646 34 dt 06 40 06 0h 06d 06 06 de 00 16 26 DO 00 0 20 00 0 36 00 00 30 30 26 06 00d 


2 REM + * 
3 REM * SIMULACION DE UN ATERRIZAJE + 
4 REM + ESPACIAL * 
S REM + * 
6 REM 03000 0004 00 00 0 00 dd dd 00 00 0 00 dl DO 0 dd 0 0 00 00 40 30 40 00 00 00d 
10 REM 


20 RANDOMIZE TIME 

30 REM 3434 46 06 06 34d d0 20 04 00 10 dl 00 db dE dd 0d dE DO dd 00 dd dl O DO de de a 06 de 
40 REM *ennsw”* valores iniciales +....n.» 

50 fuel=200+RND*40 

60 velocidad=RND*20-6 

70 altura=500-RND*10 

80 CLS 

90 PRINT TAB(6);" INTRODUCE EL EMPUJE (0- 
9)"¿PRINT 

100 PRINT TAB(10)"0=EMPUJE MINIMO" 

110 PRINT TAB(10)"9=EMPUJE MAXIMO": PRINT 
120 PRINT * FUEL "¿TAB(12)3" VELOCIDAD " 
¿TAB (28)3" ALTURA "¿PRINT 

130 REM 406 06 04 0% 30 00 06 dh 24 00 00 JO 26 20 00 DO 00 00d DO 00 00 0 00 20 0 06 00 dd 
140 REM semen BUCLE PRINCIPAL 00 16 14 20.01 
150 GOSUB 470 

160 IF FUEL<=0 THEN FUEL=0:EMPUJE=0:GOTO 
200 

170 A$=INKEYS 

180 IF A$S<"0" OR as$>"9" THEN 170 

190 empuje=VAL(a$)+0.1 

200 fuel=fuel-empuje 

210 flag=empuje-2 

220 empuje=0 

230 altura=altura+velocidad+flag/4 

240 velocidad=velocidad+flag 

250 IF altura<=10 THEN 270 

260 IF altura>10 THEN 150 

270 IF velocidad>-9 AND velocidad<5 THEN 
320 

280 GOSUB 450 

290 PRINT "HAS CHOCADO CON LA SUPERFICIE 


300 IF ALTURA>O THEN ALTURA=-ALTURA 

310 GOTO 360 

320 PRINT:PRINT " HAS ATERRIZADO FELI2M 
ENTE 1":PRINT 


SIMULADOR 


1 REM 034.00 06 06 24 00 00 40 04 30 00 40 20 20 00 00 00 00 40 00 de 
2 REM + * 
3 REM * SIMULADOR DE VUELO + 
4 REM * * 
S REM do 00 00 00 06 00 00 96 04 00 0 00 06 00 00 00 00 DH 
6 REM 

10 RPT=0 


20 LD=INT(RND(1)*360)+1 
30 DIM E$(1000)2REM 
AQUI SE GUARDA EL REGISTRO DE VUELO 


330 GOSUB 510 

340 PRINT:3PRINT "TU PUNTUACION ES DE";-I 
NT(100*fuel/(velocidad-altura));"PTOS.": 
PRINT 

350 altura=0 

360 GOSUB 450 

370 PRINT "LA LECTURA FINAL ERA : " 

380 PRINT " FUEL";TAB(12);" VELOCIDAD";T 
AB(28)3" ALTURA" 

390 GOSUB 470 

400 GOSUB 450 

410 IF ALTURA>=0 THEN 580 

420 IF altura<O THEN PRINT "NUEVO CRATER 
EN LA LUNA DE "5¿INT(ABS(100* (ALTURA+0.2 
)/3))/100;"METROS DE PROFUNDIDAD !!!" 
430 PRINT:PRINT "TU PUNTUACION ES DE";-1 
NT(100*fuel/(velocidad-altura));"PTOS.": 

PRINT 

440 GOTO 540 

450 PRINT STRING$(40,95) 

460 RETURN 

470 PRINT INT(100*fuel)/100; 

480 PRINT TAB(12);-INT(100r*velocidad)/10 

0; 

490 PRINT TAB(28); INT(100*altura)/100 

500 RETURN 

510 REM **GANAR ++ 

520 PRINT:FOR B=0 TO 11:FOR n=1 TO 100:N 

EXT3LOCATE 10,25:PAPER B:PRINT " ENHORAB 

UENA ":SOUND 1,200,10,7,0,0,1:NEXT: PAPER 
4r PEN 1 

530 RETURN 

540 REM *.*.PERDER +“ 

550 PRINT "AUN TE FALTA UN POCO DE PRACT 
ICA" 

560 PRINT "PERO NO TE DESANIMES." 

570 PRINT 

580 REM esse CONTINUAR JUEGO 064 96 0420 496 

590 PRINT "QUIERES VOLVER A PILOTAR LA N 

AVE ? (S/N)" 

600 IF INKEY(4640)=0 THEN 10 

610 IF INKEY(46)=0 THEN CLS:END 

620 GOTO £00 


DE VUELO 


40 DIM CS$(7):DIM AS(7): REM 
ESTAS MATRICES CONTIENEN 
LA BRUJULA Y EL HORIZONTE 
so CLS 
60 REM 003434 30 06 06 d6 36 de dE dE Dl DE Dl DO DO DO 00 0 0 0 0 E 
70 GOSUB 2320:REM INICIALIZACION 
80 IF CRASH=0 THEN GOSUB 820: REM 
HORIZONTE /BRUJULA 
90 GOSUB S5O0O:REM IMPRESION 
100 IF CRASH=1 THEN END 
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110 IF TIERRA=1 AND TFLAG=1 THEN PEN 3:P 
RINT "ENHORABUENA !! UN ATERRIZAJE PERFE 
CTO !1”"3FOR 2%=100 TO 300 STEP 50: SOUND 
3,24,50,4:NEXT:PEN 13END 
120 IF TIERRA=1 AND TFLAG=0 THEN PRINT " 
LAS RUEDAS ESTAN SUBIDAS" :GOSUB 1780:GOT 
o 90 
130 T=VEL.AIRE:MOTOR=0 
140 X$=INKEYS : XS=UPPERS(X5$) 
150 IF X$="R" THEN RPT=1:GOTO 70 
160 IF RPT=1 AND ES(RELOJ+1)="" THEN RPT 
=0:GOTO 140 
170 IF RPT=1 THEN X$=ES(RELOJ+1) 
180 IF X$="" THEN 140 
190 IF RELOJ<999 THEN ES(RELOJ+1)=X8 
200 IF TA=1 THEN ELEVACION=INT(ELEVACION 
+RND+*2-RND+*3) 
210 IF VEL.AIRE<3 THEN 290 
220 IF X$="0" THEN ELEVACION=ELEVACION+5 
¿EFLAG=3:1F ELEVACION>60 THEN MOTOR=1 
230 IF X$="A" THEN ELEVACION=ELEVACION-5 
¡EFLAG=-5: 1F ELEVACION<-70 THEN MOTOR=-1 
240 IF MOTOR<>0O THEN GOSUB 16440 
250 IF ALTIMETRO<1 THEN 290:REM PARA EVI 
TAR GIROS EN TIERRA 
260 IF X$="2Z" THEN AA=AA-0.5: ANG=ANG-6: 1 
F AA<-3 THEN AA=-3 
270 IF X$="M" THEN AA=AA+0.5: ANG=ANG+6: I 
F AA>3 THEN AA=3 
280 ANG=INT(ANG+RND+2-RND+2 ) 
290 IF X$=" * THEN VEL.ATRE=VEL.AIRE+B8.5 
300 IF X$="." THEN VEL.AIRE=VEL .AIRE-7 
310 VEL.AIRE=VEL . AIRE-ELEVACION/S 
320 IF TFLAG=1 THEN VEL.AIRE=VEL.AIRE-1. 
5: FUEL=FUEL-0.5 
330 IF VEL.AIRE<O THEN VEL.AIRE=0 
340 IF VEL.AIRE>400 THEN VEL.AIRE=400 
350 IF X$="1" AND TFLAG=0 THEN TFLAG=1:G 
OTO 370 
360 IF X$="1" AND TFLAG=1 THEN TFLAG=0 
370 FUEL=FUEL-(ABS(T-VEL.AIRE)/10)-3.73 
380 IF FUEL<1 THEN GOSUB 1780 
390 1F TA=1 THEN 420 
400 IF ELEVACION>10 AND VEL.AIRE>45 AND 
VEL.AIRE<60 AND TFLAG=1 THEN TA=1 
410 IF TA=0 THEN ALTIMETRO=0:GOTO 450 
420 IF TIERRA=0 AND VEL.AIRE<3O THEN ELE 
VACION=ELEVACION-S:ALTIMETRO=9*ALTIMETRO 
/10 
430 ALTIMETRO=ALTIMETRO+ INT ( ((ELEVACION+ 
O0.1)*VEL.AIRE)+EFLAG+*+VEL .AIRE/1000)/80 
440 IF ALTIMETRO<300 AND TA=1 THEN ALTIM 
ETRO=ALTIMETRO+VEL .AIRE/IO+ELEVACION 
450 IF ALTIMETRO<O THEN GOSUB 1780:REM 
CRASH 
460 REM MODIFICA LAS DOS LINEAS 
SIGUIENTES PARA HACER QUE SEA MAS 
DIFICIL(O MAS FACIL) ATERRIZAR 
470 IF ALTIMETRO>15 AND VEL.AIRE>20 OR T 
A=0 THEN 80 
480 IF ABS(ANG-LD)<13 OR ABS(ANG+360-LD) 
<13 THEN TIERRA=1 
485 GOTO 80 
4790 REM deme dt 24 06 26 06 20 26 00 00 00 20 20 20 00 DO DO 0 ME 0 00 06 0 2 0 06 00 0 
500 REM IMPRESION 
510 PLOT 86,380:DRAW 86,50:DRAW 540,50:D 
RAW 540,380:DRAW 86,380:PLOT 846,250: DRAW 
540,250:PLOT 86,110:DRAW 540,110:PLOT 4 
00,380:DRAW 400,250:PLOT 86,215:DRAW 540 
215 
520 LOCATE 11,1:PRINT "HORIZONTE"; TAB(27 
);"BRUJULA" 
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530 EV=INT(ELEVACION/10) 

540 IF EV>2 THEN EV=2 

S50 IF EV<-2 THEN EV=-2 

S60 IF EV<>O AND TA=1 AND CRASH=0 THEN G 

OSsuB 1920 

370 LOCATE 6,3 

580 FOR J=1 TO 7 

590 LOCATE 9,J+2:PRINT AS(J):LOCATE 27,3 

+2:PRINT CS8(J) 

600 AS(J)="" 

610 NEXT 

630 DIST=DIST+ABS((COS(ELEVACION))*VEL.A 
IRE) /360 

640 RELOJ=RELOJ+1 

650 LOCATE 7,113PRINT "Km.";zINT(DIST+*10) 

/1OsLOCATE 16,11:PRINT CHR$(58)3"TIEMPO" 
3 INT(RELOJ)/10;CHR$(38)5LD 

660 LOCATE 7,13 

670 PRINT "VEL. AIRE:"5¿INT(VEL.AIRE) 

680 LOCATE 7,14sPRINT LEFTS(Q$, INT(VEL.A 
IRE/20))¿CHR$ (246) ¿STRINGS (25-INT((VEL.A 
IRE/20)),32) 

690 LOCATE 7,13:PRINT "ALTIMETRO: ";INT(A 

LTIMETRO)5 

700 IF ANG<O THEN PRINT TAB(24)5360+ANG; 
“gra.” 

710 IF ANG>=0 THEN PRINT TAB(22)5ANG; "Gr 

ad. ” 

720 MR=INT(ALTIMETRO/30):3 1F MR>20 THEN M 

R=20 

730 LOCATE 7,16:PRINT LEFTS(Q$,MR)¿CHRS ( 

246) ¿STRINGS (25-MR),32) 

740 LOCATE 7,17:3PRINT "FUEL 

EL) 

750 LOCATE 7,18:PRINT LEFTS(0Q$, INT(FUEL/ 

40));CHR$S (246) ¿STRINGS (25-INT(FUEL/40),3 

2) 

760 PRINT 

770 LOCATE 7,20:PRINT "ELEVACION: "¡ELEVA 

CION¿CHR$(38);:GOSUB 2210:PRINT Us 

780 IF TFLAG=1 THEN LOCATE 7,21:PRINT "> 
TREN DE ATERRIZAJE FUERA" 

790 IF TFLAG=0 THEN LOCATE 7,21:PRINT "> 

TREN DE ATERRIZAJE ARRIBA" 


s"INT(FU 


800 RETURN 
810 REM 0400 06 dd 04 00 06 dd 04 00 00 00 00 20 00 00 00 00 DO 00 00 00 00 00 00 dd 4 dd 
820 REM HORIZONTE /BRUJULA 


830 IF ABS(INT(AA+0.5))=3 THEN GOSUB 980 
840 IF ABS(INT(AA+0.5))=2 THEN GOSUB 107 
Lo] 

850 IF ABS(INT(AA+0.5))=1 THEN GOSUB 116 
o 

860 IF ABS(INT(AA+0.5))=0 THEN GOSUB 125 
lo) 

870 REM las dos lineas siguientes se usa 
n para enderezar gradualmente las alas 
880 IF AA>O THEN AA=AA-0.2 

890 IF AAXO THEN AA=AA+0.2 

900 IF AA>0.2 THEN 1350 

910 FOR 2=1 TO 7 

920 MS(8-2)=A$(2) 

1420 IF FA=0 THEN C$(2)=" .,.d.. ":GOTO 1 
450 

1430 IF FA=1 THEN C$(2)=" .,.:9d. ":GOTO 1 
450 

1440 CS(2)=" ¿.t.. ” 

1450 IF FA=10 THEN CS(3)=".9 : ..":GOTO 
1480 

1460 IF FA=2 THEN CS(3)=".,. 3 9.":GOTO 1 
480 

1470 CS(Z)=".. 1 .." 

1480 IF FA=9 THEN C$(4)="09-X--E":GOTO 1 


s10 

1490 IF FA=3 THEN C$(4)="0--X-2E":GOTO 1 
s10 

1500 C$S(4)="0D--X--E" 

1510 IF FA=8 THEN CsS(5)=".9 : ..":GOTO 1 


540 

1520 IF FA=4 THEN CS(5)=".., 23 9.":GOTO 1 
540 

1530 CS(S)=",. 3 ..” 

1540 IF FA=7 THEN C$(6)=" .d:i.. ":GOTO 1 
seo 

1550 IF FA=b6 THEN CS(6)=" ,.d.. “:GOTO 1 
580 

1560 IF FA=5 THEN CS(6)=" ..:9. ":GOTO 1 
seo 


1570 CS(6)=" ¿.2r.. ” 

1580 C$S(7)=" .,S. ” 

1590 IF ANG>360 THEN ANG=ANG-360 

1500 F2=ANG 

1610 IF W>O THEN W=W-0.4 

1620 IF W<O THEN Wz=W+0.4 

1630 RETURN 

1640 REM MOTOR 

1650 IF MOTOR=-1 THEN 1710 

1660 FOR J=1 TO 10 

1670 LOCATE J,25:PRINT "TE HAS PARADO !" 
1675 FOR I=1 TO SOO:NEXT I:¿LOCATE 1,1:PR 
INT 

1680 NEXT 

1690 VEL.AIRE=VEL .AIRE/4 

1700 RETURN 

1710 FOR Jz=1 TO 10 

1720 PRINT TAB(J);"CAES EN PICADO !" 
1730 PRINT TAB(21-J);"DETENLO !!” 

1740 NEXT 

1750 ALTIMETRO=4*ALTIMETRO/S 

1760 CLS:RETURN 

1770 REM 440%. 01 04 0400 00 00 00 00 00 00 00 00 0 0 DD O 0 
1780 REM CRASH 

1790 CRASH=1 + ALTIMETRO=0 

1800 PEN 3:SOUND 2,200,400,4 

1810 M$="»* *C Ren A ».. Se He lle": REM 
25 CARACTERES DE LONGITUD 

1820 LOCATE 1,25:FOR J=1 TO 20 

1830 PRINT TAB(J+5);"CRASH 1” 

1840 PRINT TAB(26-J);"CRASH !*” 

1850 NEXT 

1860 FOR J=1 TO 7 

1870 G=INT(RND+*11)+1 

1880 AS(J)=MIDS(M$,G,14) 

1890 NEXT: PEN 1 

1900 CLS:+RETURN 

1910 REM 0404 de 0% 30 db db 0h 00 0 00 00 00 00 0 00 00 00 00 0 00 0 0 00 A dd de de 
1920 REM AJUSTE DEL HORIZONTE 

1930 Gs$=STRINGS (14,32) 

1940 ON EV+3 GOSUB 1960,2020,2070,2080,2 
140 

1950 RETURN 

1960 REM EV=-2 

1970 FOR J=1 TO 4 


1980 AS(J)=AS$(J+3) 

1990 NEXT 

2000 A$S(5)=G5:A$(65)=G$:A5(7)=G5$ 

2010 RETURN 

2020 REM EV=-1 

2030 FOR J=1 TO 6 

2040 AS(J)=AS(J+1) 

2050 NEXT 

2060 A$S(J)=G5S 

2070 RETURN:REM EV=0O 

2080 REM EV=1 

2090 FOR J=4 TO 1 STEP -1 

2100 AS(J+1)=AS(J) 

2110 NEXT 

2120 A$(1)=G5S 

2130 RETURN 

2140 REM EV=2 

2150 FOR J=4 TO 1 STEP -1 

2160 AS(J+3)=AS(J) 

2170 NEXT 

2180 A$S(1)=G$:A$(2)=G$:A$(3)=G5$ 

2190 RETURN 

2200 REM 14 44 06 ab 06 de dh dd dd 00 db dh dE dd DE O dd Ad 00 0 0 06 06 4 de 
2210 REM NOMBRE DE LA ORDEN 

INTRODUCIDA 

2220 US=STRINGS (12,233) 

2230 IF X$=" " THEN U$="ACELERAR" 

2240 IF X$2"." THEN US="FRENAR" 

2250 IF X$="Q" AND ALTIMETRO>O THEN Us$=" 
SUBIR" 

2260 IF X$="Q" AND ALTIMETRO=0 THEN U$=" 
MORRO ARRIBA" 

2270 IF X$="A" THEN U$="MORRO ABAJO” 
2280 IF X$="2" THEN Us=" IZQUIERDA" 

2290 IF X$="M" THEN Us$="DERECHA" 

229% G$=STRING$(10,32) 

2295 IF LEN(US)<12 THEN US=LEFTS(U$S,LEN 
(US))+RIGHTS(GS$, 12-LEN(US) ) 

2300 RETURN 

2310 REM 460040 36 dh 06 30 30 0h dl dh dE DO 0 E Dd E DE DO IÓ 0 0 00 0 0 
2320 REM INICIAL IZACION 

2330 MODE 1 

2340 RANDOMIZE TIME 

2350 QS=STRING$S(20,207) 

2360 TFLAG=1:REM TREN DE ATERIZAJE 1-FUE 

RA O-DENTRO 

2370 EFLAG=0:REM ANGULO DE SUBIDA 

2380 ANG=0:TA=0: TIERRA=O 

2390 VEL.AIRE=O 

2400 DIST=0:REM DISTANCIA CUBIERTA 

2410 ALTIMETRO=0 

2420 ELEVACION=0:REM ANGULO DE ELEVACION 

2430 AA=0:REM ANGULO ALAS” SE USA PARA 
IMPRIMIR EL HORIZONTE 

2440 FUEL=750:CRASH=0:F2=0:F1=0:REM PARA 
LA RUTINA DE DIRECCION DE LA BRUJULA 
2450 RELOJ=0:REM TIEMPO 

2460 X$="" 

2470 GOSUB 1260 

2480 RETURN 
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Programas para 
Commodore 


ROBOT DE PUNTOS 


REM 040.00 40 40 dh 4 dd dd 46 dd 80 2d 40 dd 00 40 00 0 


838 


REM + ROBOT DE PUNTOS 


+» 
+» 


S REM 00904000000 440 00 30 4 db 0d 00 06 00 00 00 


100 


REM 

POKE45, 01 POKE46, 641 CLR 

REM SUBE LOS TOPES PARA RESERVAR 
MEMORIA DE ALTA RESOLUCION 
GOSUB 1730: REM INICIALIZACION 
GOTO 490 

REM 400400 06 06 26 38 30 06-00 30 30 00 00 00 00 0 46 0 30 00 06 00 46 0 00 DA 20 00 
REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


310 
315 
320 
330 
340 


350 
360 
370 
380 
390 


400 


410 
420 


430 


480 
490 
495 
500 
s10 
520 
530 
540 
550 
560 


REM 

REM 

DATA "“.” 

REM 00004004 00-00 04 00-44 40 00 46 00 26 26 00 20 6 06-26 06 26 6 06 30d 26 06 26 10 
REM HALLA LA PARTE ENTERA DE LAS 
COORDENADAS 

VX=INT(VX+.5)12 HX=INT(HX+.5) 

RETURN 

REM 404040 40 00 00 40 0% 40-06 0h 00 06 00 06 06 0 DE 3 Dd dE 06 00 06 06 96 36 36 06 06 dE 
REM SUBRUTINA PLOT ALTA RESOLUCION 
FF=INT(VX/8)1 LL=INT(HX/0)3 

PP=VX AND 7 1 BB=7-(HX AND 7) 
SS=BASE+FF*320+LL+*B+PP: 

POKE SS, PEEK(S5S) OR 2”BB 

RETURN 

REM ESTAS COORDENADAS SIRVEN PARA 
CALCULAR LA POSICION EXACTA DEL 

REM BIT QUE HEMOS DE ACTIVAR EN EL 
MAPA DE ALTA RESOLUCION. 

REM 43000 04 06 06 24 06-26 30 00 26 06 26 20 00 26 00 00 20 0 0 0 0 06 6 06 06 06 0 0 
REM LECTURA DEL PROGRAMA 

CO=0 

CO=CO0+1 

READ AS (CO) 

IF AS(CO)="*" THEN 3550 

IF CO<20 THEN 500 

A die 
REM EJECUCION DEL PROGRAMA 
CP=0+* REM CONTADOR DE PROGRAMA 


CP=CP+1 

IF CP=21 THEN 2000: REM FIN 
MS=AS (CP) 

IF M$="w*" THEN 20001 REM FIN 
NS=LEFTS (MS, 2) 

IF N$="AR”" THEN 360: REM ARRANCA 
IF N$="AV"” THEN GOSUB 
IF N$="AT" THEN GOSUB 
IF N$="GI” THEN GOSUB 
IF N$="CE” THEN GOSUB 
IF N$="VE" THEN GOSUB 
IF Né$="AZ" THEN GOSUB 
IF N$="RE” THEN GOSUB 
IF N$="FI” THEN GOSUB 
IF N$="MI” THEN GOSUB 
GOTO 370 

REM 4040.00 00.40 00 2000 20 40 00 00 30 24 00 30-20-20 20 30 40 202000 20 20 20 26 40 40 0046 
REM AVANZA 

MS=MIDS (MS, 4) 

IF LEFTS (M6, 1)="N" THEN 
M$=MIDS (MS, 3) 

Fe=p" 

NUM=VAL (M8) 

FOR Ex=1 TO NUM 


840 IF VX<1 OR VX>PROF THEN 880 

850 IF HX<1 OR HX>ANCHU THEN 880 

850 GOSUB 390 

880 IF F8="F* THEN VX=VX+VE: HX=HX+HO 

890 IF F$="B" THEN VX=VX-VE: HX=HX-HO 

900 GOSUB 350 

910 NEXT E 

920 RETURN 

Q30 REM 00424000 00.40 2% 94 30-16 26 34 36 36 36 16 86 2 20 0 30 00 20 26 06 0 40 26 26 06 0d 

940 REM ATRAS 

950 MS=MIDS (MS, 4) 

960 IF LEFTS (M8, 1)="A" THEN 
MO=MIDS (MS, 4) 

970 Fs="B" 

980 GOTO 820 

990 REM 404034 00 24 30-2h 10-40 10 00-20 20 00 24 20 20 20 40 28 0 20 24 00 20 20 40 20 06 20 30d 

1000 REM GIRA 

1010 MS=MIDS (M8, 4) 

1020 IF LEFTS (M$,1)="A" THEN 
MS=MIDS (MS, 3) 

1030 NUM=VAL (M8) 


1040 Y=INT ( (NUM+11.23) /22.5) 


IF Y=0 OR Y=16 THEN RETURN 


1060 FOR J=1 TO Y 


1065 IF VE=-2 AND HO=0 OR VE=2 AND HO=2 
THEN HO=18 GOTO 1130 

1070 IF VE=-2 AND HO=1 THEN HO=2: 
GOTO1130 

1075 IF VE=-2 AND HO=2 OR VE=0 AND HO=-2 
THEN VE=-1% GOTO 1130 

1080 IF VE=-1 AND HO=2 OR VE=1 AND HO=-2 
THEN VE=0 1 GOTO 1130 

1085 IF VE=0 AND HO=2 OR VE=2 AND HO=-2 
THEN VE=1 2 GOTO 1130 

1090 IF VE=1 AND HO=2 THEN VE=2 : 
GOTO1130 

1095 IF VE=2 AND HO=1 THEN HO=0 : 
GOTO1130 

1100 IF VE=2 AND HO=0 THEN HO=-12 
GOTO 1130 

1105 IF VE=2 AND HO=-1 THEN HO=-2: 
GOTO 1130 

1110 IF VE=-1 AND HO=-2 THEN VE=-2: 
GOTO 1130 

1115 IF VE=-2 AND HO=-2 THEN HO=-1: 
GOTO 1130 

1120 IF VE=-2 AND HO=-1 THEN HO=0 


NEXT J 


1140 
1150 
1160 
1170 
1180 


RETURN 

CAN iii 
REM CENTRO 
HX=INT ( (ANCHU+. 5) /2) 

VX=INT((PROF +.5)/2) 

VE=-2: HO=03 REM MIRA HACIA ARRIBA 
RETURN 

A ie 
REM VE X, Y 

P=0 

P=P+1 

IF MIDS(M8,P,1)=","” THEN 1320 

IF P<LEN(M8) THEN 1280 

RETURN: REM ERROR 
VX=VAL (MIDS (M8, 4,P-1)) 

HX=VYAL (RIGHTS (M8, LEN (M8) —P) ) 

GOSUB 340 

IF VX<1 OR VX>PROF THEN 1380 

IF HX<1 OR HX>ANCHU THEN 1380 


S0SUB 390 

RETURN 

REM 1040 4020 20 40 20 20 20 40 00 26 30-30 26 06 00 0 30 20d 0 86 06 00 06 0 16d 06 dE 
REM AZAR 
HX=INT (RND (1) +ANCHU) +1 
VX=INT(RND (1) PROF) +1 

SOSUB 390 

RETURN 

REM 00.00.4040 40 002040 4 30 00 30 3d 30 8 06d dd DE dd dE 6 0 16 6 6 06 6 IA 
REM REPITE 

MS=MIDS (MS, 4) 

IF LEFTS(M6,1)="1" THEN 

MS=MIDS (M8, 5) 

RC=VAL (M8) 

MARC=CP 

RETURN 

REM 0400040 30 3004 36 3 30-20 06 dl 06 0 dd 30 0 00 06 6 06 06 06 6 06d 0 0d 
REM FIN REPITE 

RC=RC-1 

IF RC>O THEN CP=MARC 

RETURN 

REM 00 00 00 00 dd 20 00 00 40 00 06 00 00 06 DE UE E E DE 6 A 00 A dd 6 6 
REM MIRA 

MS=MIDS (MS, 4) 

IF LEFTS(M$,1)="A" THEN 

MS=MIDS (MS, 3) 

NUM=VAL (M6) 

Y= INT ((NUM+11.25)/22.5)22.5 


IF Y=0 OR Y=360 THEN VE=-2: HO=0 
IF Y=22.5 THEN VE=-2: HO= 1 

IF Y=45 THEN VE=-2: HOz= 2 

IF Y=67.53 THEN VE=-13 HO= 2 

IF Y=90 THEN VE= O: HO= 2 

IF Y=112.5 THEN VE= 13 HO= 2 

IF Y=m135 THEN VE= 23 HO= 2 

IF Y=157.5 THEN VE= 2: HO= 1 

IF Y=180 THEN VE= 2: HO= O 

IF Y=202.5 THEN VE= 2: HO=-1 

IF Y=225 THEN VE= 23 HO=-2 

IF Y=247.5 THEN VE= 11 HO=-2 

IF Y=270 THEN VE= O2 HO=-2 

IF Y=292.5 THEN VE=-11 HO=-2 

IF Y=315 THEN VE=-23 HO=-2 

IF Y=337.3 THEN VE=-23 HO=-1 
RETURN 

REM 4406363020 00 96 00 20 16-06 30-20-16 0064 26 00 A DO DO AA DEI 
REM INICIALIZACION 
POKE 53280,11: POKES3281,7 


GOSUB 40001: REM ALTA RESOLUCION 
REM MODIFICA LAS DOS LINEAS SIGUIEN 
TES PARA VARIAR EL CUADRO DE IMAGEN 
ANCHU=320: REM CARACTERES HORIZONTAL 
PROF=200 ¿REM CARACTERES VERTICAL 


233. 


1790 ANCHU=ANCHU-1 

1800 PROF=PROF-3 

1810 VE=-2s HO=0: REM EMPIEZA MIRANDO 
HACIA ARRIBA 

1820 DIM A6(20)1 REM PARA El. PROGRAMA 
DEL ROBOT 

1850 VX=03 HX=0 

1910 POKES3280, 1 

1920 RETURN 

2000 REM 4040 0400 46 06 04 00 46 36 36 06 06 24 Ub 2 2 80 36 80 8 86 86 86 26 06 00 00 00 16 46 

2010 REM FIN DE EJECUCION 

2020 POKES3280, 6 

2030 REM BORDE DE COLOR AZUL INDICA FIN 
DE EJECUCION 

2040 GET ASs IF ASX<>)CHRS (1364) THEN 2040 

2050 REM F7 PERMITE VOLVER AL MODO 
NORMAL 

2060 POKES3265, PEEK (353263) AND223 

2070 POKES3272, (PEEK (53272) AND240) OR4 

2080 POKE 53280, 14: POKES53281,6 

2090 PRINT CHR$ (154) 5 CHR$ (147) 

2100 END 

4000 REM de 44 00 40 09 06 46 40 40 20 06-20 20-00-28 28 db 40 06 46 0 00 Al 00 40 0 06 26 40 06 46 

4010 REM PREPARA ALTA RESOLUCION 

4020 PRINT CHR8(144)5 CHRS(147) 1 


PRINTsPRINT3¿PRINT 
4030 PRINT” DESEA BORRAR LA PANTALLA (S/ 
N) 2" 
4040 BASE=8192s% REM INICIO MEMORIA PANTA 
LLA 
4043 GET AS: IF A6="N" THEN 4080 
4046 IF AS<>”"8” THEN 4043 
4049 PRINTs PRINT: PRINTs PRINTS 
“ ESPERE UN MOMENTO POR FAVOR..." 
4050 PRINT" PRINTs PRINTs PRINT" LIMPIAN 
DO PANTALLA DE ALTA RESOLUCION. * 
4070 FOR J=BASE TO BASE+79993 POKE J,0Os 
NEXT 
4080 POKES3263, PEEK (532635) OR32 
4090 REM SELECCIONA MODO ALTA RESOLUCION 
4100 POKES53272,PEEK (53272) 0R8 
4110 REM SELECCIONA MEMORIA PANTALLA 
4120 I=0: REM COLOR DE IMPRESION NEGRO 
4130 J=1s REM COLOR DE FONDO BLANCN 
4140 N=(I AND 15)+16+(J AND 15) 
4150 FOR J=1024 TO 2023: POKE J,Nz NEXT 
4160 RETURN 
4200 REM RECUERDE PULSAR RUN/STOP + RES- 
TORE PARA VOLVER AL MODO NORMAL 


PRINT 


MAQUINA DE AJEDREZ 


RHARARARARARRRRRAAAARAA A 
REM + - 
REM + MAQUINA DE AJEDREZ + 
e e 


REM 400440 4h 4h 00 4h 0 40 20 40 dd 0 00 4d 00 00 20 00 0 

10 REM 

20 GOSUB 9000: REM INICIALIZACION 

30 GOTO 2000 

499 REM 0040404040 00 00 00 40 00 dd 86 80 80 00 30 00 06 36 40 36 0 06 0 30 dh 0 00 0 6 00 

500 REM PONER LIMITE SUPERIOR 

510 IF INT(T/10)=INT(RB/10)+1 THEN 
RETURN 

520 IF T-10=RN OR T-21=RB OR T-9=RB THEN 
GOSUB6101 GOTO 310 

325 IF T-19=RB OR T-11=RB THEN GOSUB6101 
GOTO 510 

540 T(T)=4b61 T=T-101 T(T)=ASC("T"):SI=18 
MOVI=1 

550 GOSUB 6000: GOTO 310 

599 REM 103644 06 46 06 4% 3% 24 30 06 00 Uh 4% 20 06 36 002 38 40 30-00 00 30 24 4046 00 2036 

600 REM MOVIMIENTO HORIZONTAL, COMPROBAN 
DO QUE NO SE CHOCA CON RN 

610 CT=T-INT(T/10)*10 

620 DIR=13 IF CT>4 THEN DIR=-1 

630 IF T+DIR=RN THEN DIR=-DIR 

640 T(T)=461 T=T+DIR 

650 FOR Az1 TO 6 

660 IF T=RN OR T-INT(T/10)*10=1 OR 
T-INT(T/10)*10=8 THEN A=73 GOTO 480 

670 T=T+DIR 

680 NEXT A 

690 T(T)I=ASC("T")a MOVI=2 

700 GOSUB 6000: RETURN 

799 REM 3434 46-34 30 06 38 06 40 34-06-36 36-00 36 36-26-24 30-06 36 06-20 26 0026 000 26 0 06d 

800 REM PREPARAR POSICION 

810 GOSUB 510 

820 IF T-11=RB OR T-9=RB THEN GOSUB 610: 

GOTO 810 


830 IF INT(RN/10)=INT(RB/10)+2 THEN 
RETURN 

840 T(RN)=462 RN=RN-101 T(RN)=ASC("R")a 

MOVI=3 

850 GOSUB 4000: GOTO 810 

999 REM 440404 0% 00 2% 00 30 06 00 00 20-2b 06-20 00 00 00 20 00 30-24 00 06 26 26 24 3646 2000 

900 REM POSICION 

910 SI=0% GOSUB 510: IF SI THEN 2020 

920 IF T-11=RB OR T-9=RB THEN GOSUB 610: 
GOTO 2020 

930 IF ABS(RN-20-RB)<=1 THEN RETURN 

940 T(RN)=461 RN=RN+1 

930 IF RN-20-RB>0 THEN RN=RN-2 

960 T(RN)=ASC(“"R"):e MOVI=O 

970 GOSUB 640001 GOTO910 

999 REM 000404040 40 00 00-40 00 00 00-40 40 00 06-00 06 00 20-20 dl 06 40-26 20 00 2040-24 40 06 

1000 REM PREPARA RETROCESO 

1010 SI=03 GOSUB 510: 1F SI THEN GOTO2020 

1020 IF T-11ÑRB OR T-9=RB THEN GOSUB610: 
GOTO 2020 

1030 CRB=RB-INT(RB/10)*10 

1040 IF CRB=1 OR CRB=8 OR RB=RN-20 THEN 
RETURN 

1050 T(RN)=461 RN=RN+1 

1060 IF RN-INT(RN/10)*10-RB+INT(RB/10) + 
10 > O THEN RN=RN-2 

1070 T(RN)=ASC("R")2 MOVI=5 

1080 GOSUB 6000: GOTO 1010 

A did 

1100 REM RETROCESO 

1110 SI=0s GOSUB 5101 IF SI THEN 2020 

1120 IF T-11=RB OR T-9=RB THEN GOSUB610: 
GOTO 2020 

1130 T(T)=461 TeT-101% T(T)RASC("T") 

1140 GOSUB 6000: T(RN)=46: RN=RB+20 

1150 T(RN)=ASC("R")x MOVI=b 

1160 GOSUB 6000: GOTO 2040 

1198 REM 000.444 06 36-46 06-26-30 0% 16 06-36 0 6-20 30 16 06 26-36-16 06 IMM 1004 


1199 REM PROGRAMA PRINCIPAL 

2000 GOSUB 64000: REM LEE EL MOVIMIENTO 
DEL JUGADOR 

2010 GOSUB 35001 REM MOV. 

2020 GOSUB 800: REM MOV. 

2030 GOSUB 9001 REM MOV. 

2040 GOSUB 1000: REM MOV. 

2050 GOSUB 11101» REM MOV. 

5999 REM 00400 0h 00 40 4 0% 00 06 00 0b db 20 00 00 80 40 00 00 20 06 40 36 24 0 20 00 00 20 

6000 REM IMPRIME TABLERO. LEE MOVIMIENTO 
DEL JUGADOR. MIRA SI FIN. 

6100 GOSUB 7000 SS 

6110 POKE214,12s PRINTs+ POKE 198,0 

6115 FOR Al=1 TO 6 ¿*PRINT ” "s 
NEXT A11POKE 214,12:PRINT CHRS$ (155) 

6120 PRINT "MUEVES A"s PRINT+ PRINT 
“LETRA 1%) 

6125 GET G162 IF Gí8="" THEN 6123 

6130 PRINT Gi8: PRINTs PRINT "NUMERO: “5 

6133 GET 028: 1F G28="" THEN 6135 

6140 PRINT G261 G$=G18+G28 

6145 IF G8="FF” THEN END 

6150 IF G28$<"1" OR 628>"8"” THEN 6110 

6160 IF G18<"A” OR G18>”"H" THEN 6110 

6170 X=VAL (028) 

6171 A=ABS(X+10+A8C(G16)-64-RB) 

6175 IF A<X>1 AND A<>9 AND A<X>10 AND 
AX>11 THEN 6110 

6180 T(RB)=461 RB=X*10+ASC(G18)-64 

6190 T(RB)=ASC("8"): GOSUB 7000: MOVI=O 

6200 REM MIRA SI PUEDE COMERSE EL REY 

6210 FRB=INT(RB/10)3 CRB=RB-FRB+10 

6220 IF INT(T/10)=FRB OR T-INT(T/10)+10w= 
CRB THEN 8000 

6230 IF ABS(RN-RB)<1 THEN 8000 

6231 IF RN=RB+9 OR RN=RB-9 THEN 8000 

6232 IF RN=RB+10 OR RN=RB-10 THEN 8000 

6233 IF RN=RB+11 OR RN=RB-11 THEN 8000 

6240 RETURN 

6999 REM 4404 0% 0% 4% 00 00 00 0% 0b 00 06 00 40 00 00 00 40 00 00 00 00 00 00 00 40 00 00 4 3606 

7000 REM IMPRIME EL TABLERO 

7010 PRINT CHR$ (19) $ CHR$ (158) 

7020 REM HOME=CHRS (19) "$ 
CHR$ (1589) =AMARILLO 

7820 PRINT * HE"sPRINT:+PRINT "UTILIZA 

DO"s PRINTs* PRINT * EL” 

7830 PRINTs PRINT"MOVIMIENTO: “e PRINT: 
PRINT *” ”MOVI 

7840 PRINT CHR$(19)5 CHRS(153)53 TAB(12)5 
"ABCODEF Gs H"3CHRS(152)5 

7850 FOR A1=80 TO 10 STEP -10 

7860 FOR A2=1 TO 3 

7870 QQ$=" "s IF A2=2 THEN 
QQS=CHRS$ (153) +STRS (A1/10) +CHR$ (132) 

7880 FOR A3=1 TO 8 

7890 IF T(A1+A3)=46 THEN 0Q0Q6=006+D5 (42) : 
GOTO 7950 

7900 QQ$=00Q$+CHRS (18) 

7910 IF T(A1+A3)=84 THEN 
00$=00$+CHR$ (144) +TNS (A2) 


o UA YU” 


IF T(A1+A3)=82 THEN 
QQ$=Q0Q6+CHRS (144) +RN$ (A2) 

IF T(AL+A3)=36 THEN 

QQ$=QQ$+CHRS( 53) +RB$(A2) 
00$=Q0$+CHR$ (146) +CHR$ (152) 

NEXT A3 

PRINTs PRINT TAB(10)3008$5 

NEXT A2 

NEXT Al 

RETURN 

REM 00400003000 00 00 00 00 00-00 0020-20 4008 06 06 00 00 00 00 00 MAI MA 
POKE 214,20: PRINT3 PRINT CHR$(18)5 
CHRS (5) 5 "HAS PERDIDO. ” 

END 

REM 000000040 00 00 0040 00-00-20 00 00 00 00 00 00 40 00 0 00 0 00 00 00 0000 0 00 4 
REM INICIALIZACION 

POKE 33280,9: POKES3281,9 

PRINT CHRS (133) $ CHAS (147) 

REM COLOR VERDE CLARO Y BORRA LA 
PANTALLA 

DIM T(100) 

FOR A=1 TO 1003 T(A)=46:% NEXT 
F=INT(RND(1) 43) +1 

Ce INT (RND(1)8) +1 

RB=F+10+Cs REM REY BLANCO 
FBIS=F+2+INT(RND(1)+6)1 IF FBIS>8 
THEN FB18=8 
RN=FBI8+10+INT(RND(1)87) +10 

REM REY NEGRO 
FDIS=F+2+INT(RND(1)*6)1 IF FBIS>8 
THEN FBI8=8 
T=FBI8410+INT(RND(1)07)+14 

REM TORRE NEGRA 

IF T=RN THEN 9060 

T(T)IRASC(*T")e TIRB)ZASC("8"): 
T(RN)=ASC (*R") 

MOVI=0 

DS (1) =CHRS (207) +CHRS (183) +CHR$ (208) 
DS (2) =CHR$ (180) +CHR$ ( 32) +CHR$ (170) 
DS (3) =CHR$ (204) +CHRS (173) +CHR$ (184) 
TNS (1) =CHRS (168) +CHRS (168) + 

CHR$ (168) 

TNS (2) =CHRS (171) +CHRS (195) + 

CHR$ (179) 

TNS (3) =CHRS (194) +CHRS( 84) + 

CHRS (194) 

RNS (1) =CHRS ( 32) +CHRS (218) + 

CHRS( 32) 

RNS (2) =CHRS (213) +CHR$ (192) + 

CHR$ (201) 

RNS (3) =CHRS (194) +CHRS( 73)+ 

CHR$ (194) 

RBS (1) =CHRS ( 32) +CHRS (218) + 

CHRS ( 32) 

RBS$ (2) =CHR$ (213) +CHRS$ (192) + 

CHRs (201) 

RBS (3) =CHR$ (194) +CHRS( 36) + 

CHRS (194) 

RETURN 
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SIMULADOR DE VUELO 


1 REM 300000000 10 26 26 06 20 26 26 26 06 06 06 6 DD 06 


2 REM + - 

3 REM * SIMULADOR DE VUELO + 

4 REM » * 

A AA 222,222.22, 2,33 

10 REM 

20 RPT=0 

30 LD=INT(RND(1)*360) 

40 DIM E$(1000)1 REM AQUI SE GUARDA EL 


50 
60 
70 
eo 


90 


REGISTRO DE VUELO 

DIM C$(7),A6(7)3 REM ESTAS MATRICES 
TIENEN LA BRUJULA Y EL HORIZONTE 

PEA 00 20 00 40 00 008 06 00 00 00 08 0 46 00 0 2 00-08 00-00 0 00 4 06 00 06 0 4 
GOSUB 2320: REM INICIALIZACION 

IF CRASH=0 THEN GOSUB 820: 

REM HORIZONTE / BRUJULA 

GOSUB 300: REM IMPRESION 


100 IF CRASH=1 THEN END 
110 IF TR<>1 OR TFLAG<>1 THEN 120 


115 PRINT CHR$ (18) 3 "ENHORABUENA !. 


UN AT 


ERRIZAJE PERFECTO. “3CHR$(146)1 END 


120 
125 


130 
140 
145 


146 
147 


150 
160 


170 
180 
190 


200 


IF TR<>1 OR TFLAG<>0O THEN 130 
IF CC$=" LAS RUEDAS ESTAN SUBIDAS "1 
GOSUB 1780:GOTO 90 

T=VE1 MOT=0 

GET xs 

IF RPT=0 AND PEEK(198)<=1 THEN POKE 
53280, 0 

IF RPT=1 THEN POKES3280, 13 

IF RPT=0 AND PEEK(198)>1 THEN POKE 
53280, 10 

IF X$="R" THEN RPT=1: GOTO 70 

IF RPT=1 AND ES(RELOJ+1)="" THEN 
RPT=01 GOTO 140 

IF RPT=1 THEN X$=ES(RELOJ+1) 

IF X$="" THEN 140 

IF RELOJ<999 AND RPT=0 THEN 
ES(RELOJ+1)=X8 

IF TAKEOV=1 THEN EL=INT(EL+RND (1) +2- 


RND (1) 3) 


210 IF 
220 IF 


230 IF 


VE<3 THEN 290 

X$="0" THEN EL=EL+5: EFLAG=5: 
IF EL>60 THEN MOT=1 

X$="A" THEN EL=EL-5: EFLAG=-5: 
IF EL<-70 THEN MOT=-1 


240 IF MOT<>0O THEN GOSUB 1640 


250 IF 
260 
270 
280 


290 
300 


AL<1 THEN 290: REM PARA EVITAR 
GIROS EN TIERRA 

IF X$="Z" THEN AA=SAA-.5: ANG=ANG-6: 
IF AA<-3 THEN AA=-3 

IF X$="M" THEN AA=AA+.3S1 ANG=ANG+61 
IF AA>3 THEN AA=3 

ANG= INT (ANG+RND (1) +2-RND (1) +2) 

IF X8=" “ THEN VE=VE+8.5 

IF X8="."” THEN VE=VE-7 


310 VE=VE-EL/5 


320 


330 
340 
350 
370 
380 
ADO 
390 
400 


IF TFLAG=1 THEN VE=VE-1.33 
FUEL=FUEL—. 5 

IF VEX<O THEN VE=0 

IF VE>400 THEN VE=400 

IF X$="1” THEN TFLAG=ABS(TFLAG-1) 
FUEL=FUEL-(ABS(T-VE) /10)-3.75 

IF FUEL<1 THEN FUEL=03 CC$="HAS AGOT 
TUS RESERVAS DE FUEL”: GOSUB 1780 
IF TAKEOV=1 THEN 420 

IF EL>10 AND VE>45 AND VE<60 AND 
TFLAG=1 THEN TAKEOV=1 
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IF TAKEOV=0 THEN AL=0: GOTO 450 

IF TR=0 AND VE<30 THEN EL=E-3: 
AL=9*AL/10 

AL=AL+INT (((EL+, 1) VE) +EFLAGAVE/ 
1000) /80 

IF AL<300 AND TAKEOV=1 THEN 
AL=AL+VE/30+EL 

IF AL<O THEN G60SUB 1780: REM CRASH 
REM MODIFICAR LAS DOS LINEAS SIGUIEN 
TES PARA PONER MAYOR O MENOR 

REM DIFICULTAD EN EL ATERRIZAJE. 

IF AL>13 AND VE>20 OR TAKEOV=0 THEN 
GOTO 80 

IF ABS(ANG-LD)<13 OR ABS(ANG+350-LD) 
<13 THEN TR=1: GOTO 80 

CC8=" HAS ATERRIZADO FUERA DE LA PI 
!  "*60SUB 1780:GOTO 90 

PREM 40040404 0% 06 00 0404 0h 06 00-08 00 00 00-00 4 00 00 00 06-00 00 40 00 0-06 24 06 06 00 
REM IMPRESION 

PRINT CHR$(19)1 REM HOME 

PRINT* HORIZONTE" 5 TAB (19) 5 "BRUJUL 


EV=INT(EL/10) 

IF EV>2 THEN EV=2 

IF EV<-2 THEN EVm-2 

IF EV<>0 AND TAKEOV=1 AND CRASH=0 
THEN GOSUB 1920 


PRINT 94 o 
REM SON VEINTISEIS RAYITAS A 
FOR J=1 TO 7 

PRINT “2 "pAs(d)5% POS (dr 3 

AS (J)ar* 

NEXT J 

PRINT 94 ono pe 
REM SON VEINTISEIS RAYITAS A 
DIST=DIST+ABS ( (COS (EL) ) VE) /360 


RELOJ=RELOJ+1 

PRINT ”*RANGO"51VV=INT(DIST+*10)/10:3 
P=3:60SUB 3000 

PRINT “s TIEMPO”5 1 VV=INT(RELOJ)/10:3 
P=4: GOSUB 3000 

PRINT “:”58 VV=LD: GOSUB 3000: 
PRINT “1” 


PRINT 94 non pe 
REM SON VEINTISEIS RAYITAS Ñ 
PRINT “2 VELOCIDAD DEL AIRE: "51 VV=INT 


(VE) P=712 GOSUB 3000: PRINT “2” 
PRINT "e "¿LEFTS(QS, INT(VE/17))5 
es “TAB (2735 "1" 
PRINT "+ ALTIMETRO: "54 
P=b6: GOSUB 3000 

IF ANG<O THEN VV=360+ANG: P=4: 

GOSUB 3000: PRINT” DEG. 3*"+* GOTO 720 
VV=ANG: P=4:GOSUB 3000: 

PRINT" DEG. 1” 

MR=INT(AL/30)1 IF MR>20 THEN MR=20 
PRINT “2 *"3LEFTS(QS,MR)3"> “s 
TAB(27)3 "1" 

PRINT “sa FUEL — 12%32 VV=INT(FUEL) 3 
P=43 GOSUB 3000: PRINT TAB(27)3"2" 
PRINT “2 "5LEFTS(0QS, INT(FUEL/32))5 

“> “3 TAB(27)3 "12" 

A a qe 
REM SON VEINTISEIS RAYITAS SS 
PRINT "sELEVACION: "53 VV=EL3 P=5:2 
GOSUB 3000 

PRINT" 12“38 GOSUB 2210: PRINT US 


VV=INT(AL.) 3 


IF TFLAG=1 THEN PRINT 

"2 "5 “>TREN DE ATERRIZAJE FUERA<: " 
IF TFLAG=0 THEN PRINT 

“3*5"“>TREN DE ATERRIZAJE ARRIBA: " 
PRINT CHR$ (17) 5CHRs (18) 3 CC$ 

RETURN 

REM 4044-00-00-40 00 06 06-00 06 36 00 40-10 10 20-20 30 30 0 30 0 4 3 6 34 16 26 M6 MI 
REM HORIZONTE / BRUJULA 

ON ABS(INT(AA+.5S))+1 GOSUB 1250, 116450 
»1070,980 

REM LAS DOS LINEAS SIGUIENTES SE U- 
SAN PARA ENDEREZAR GRADUALMENTE LAS 
REM ALAS. 

IF AA>O THEN AA=AA-.2 

IF AAXO THEN AA=AA+.2 

IF AA>.2 THEN 1350 

FOR Z=1 TO 7 

MS (8-7)=A8 (7) 

NEXT 2 

FOR Z=1 TO 7 

AS(Z)=M6 (7) 

NEXT 7 

680TO 1350 

REM AA=z 3 0-3 

AS(1) =” » 


1000 AS (2)=" .. 
1010 AS(J)=" .. 


1030 AS (3)=" ». 
1040 AS(6)="  .. 
1050 AS (7)="u. 

1060 RETURN 

1070 REM AA= 2 O -2 


1080 AS(1)=" 


1) 
. 
1) 
1020 A$(4)=" .. . 
. 
. 
. 


1090 A$(2)=" .. 


1100 AS(J)=" 
1110 AS(4)m" 
1120 AS(3)=" 
1130 AS (6)="uun. 
1140 AS(7)=" 


. 
. 
. 
... e 
... d 
1) 
»” 


1150 RETURN 

1160 REM AA= 1 O -1 

1170 AS(1)=" w 
1190 AS(2)=" * 


1190 AS(J)=" 
1200 AS(4)=" 


..no” 
+... ll 


1210 AS(3)="suun. 3 
1220 AS(6)=" E 
1230 A6(7)=" A 
1240 RETURN 

1230 REM AAs O 


As)” > 
As (2)=" > 
AS(J)=" E 
A dd 
ASS)" > 
AS (br 1” 
As (7)m” iS 
RETURN 
REM 4404 00 00 06 06 06 00-46 06 00 06 36-26 20-20 06 28 20-26 26 46 30 360 4602010 1406 
REM ABIGNACION DE LAS CADENAS DE 
LA BRUJULA 
F2=ANG-F1 
IF F2<0 THEN FA=INT((F2+373) /30) 
IF F2>=0 THEN FA=INT((F2+13 )/30) 
IF FA=m12 THEN FA=0 
C$(1)=" .N. * 
IF FA=11 THEN C$(2)=” 
GOTO 1430 
IF FA=0 THEN C$(2)=" 
GOTO 1450 
IF FA=1 


THEN CS(2)="  ..:28. ": 


1440 
1450 


1460 


1470 
1480 


1490 


1500 
1510 


1520 


1340 


GOTO 1450 
C$(2)=" ..t.. 
IF FA=10 THEN C$(3)=" .,Q : 
GOTO 1480 

IF FA=2 THEN C$(J)=" .. 
GOTO 1480 

CS(3)=" ,. 1 ..” 

IF FA=9 THEN C$(4)=" 
60TO 1510 

IF FA=3 THEN C$(4)=" 
GOTO 1510 

Cs (4)=" 0--X--E*” 


09-X--E"x2 


D--X-eE": 


IF FA=8 THEN C$(5)=" .Q 2 ..*%: 
GOTO 1540 

IF FA=4 THEN CS(3)=" ,. 1 Q.": 
60TO 13540 

Cs(S)=" .. 2 > 


IF FA=7 THEN C$(6)="  ,1.. *: 
60TO 1580 

IF FA=6 THEN CS (6)=" 
GOTO 1380 

IF FA=3 THEN CS$(6)=" 
S0TO 1580 

CS(b6)="  ,.t.. 

CS (7)m" .«S. ” 

IF ANG>360 THEN ANG=ANG-360 
F2=ANG 

IF W>O THEN vi=b-. 4 

IF W<O THEN Wu=y+. 4 


RETURN 
REM MOTOR 
IF MOT=-1 THEN 1710 


FOR J=1 TO 10 

PRINT TAB(J)5"TE HAS PARADO !*” 

NEXT J 

VESVE/4 

RETURN 

FOR J=1 TO 10 

PRINT TAB(J)5$"“CAES EN PICADO !” 
PRINT TAB(21-J)3"DETENLO !" 

NEXT J 

AL=AL+4/3 

RETURN 

REM 4000 0% 0040 06 26 40-04 4% 00 20-06 06-00 30-26 06 20 00 6 06 6D 20 6 264 26 0046 
REM CRASH 

CRASH=1s AL=O 

PRINT CHR$ (147): REM BORRA LA PANTA 


N$="44 CC Res A ». Su. Ha 1!” 
REM 1234567890123456789012345 
FOR J=1 TO 20 

PRINT TAB(J)5 "CRASH !” 

PRINT TAB(21-J)5 "CRASH !* 
POKES3280, J 

NEXT J 

FOR J=1 TO 7 
G=INT(RND(1)+11)+1 
AS(J)=MIDS (NS, G, 14) 

NEXT J 

POKE 198,0 

PRINT CHR$(147): REM BORRA LA PANTA 


RETURN 
A cdi 


REM AJUSTE DEL HORIZONTE 
Gs=" "REM 14 ESPACIOS 
ON EV+3 GOSUB 1960, 2020, 2070, 2080, 


2140 

RETURN 

REM EV = -2 
FOR J=1 TO 4 
AS (J)=AS (J+3) 
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NEXT J 

AS(3)=081 AS(6)=G81 AS(7)=GS8 
RETURN 

REM EV = -1 

FOR J=1 TO 6 

AS(JI=AS (J+1) 

NEXT J 

AS (7)=88 

RETURN: REM EV=0 

REM EV» 1 

FOR J=6 TO 1 STEP -1 
AS(J+1)=A6 (J) 

NEXT Y 

AS (1)=68 

RETURN 

REM EV = 2 

FOR J=4 TO 1 STEP -1 

AS (J+3) AS (3) 

NEXT J 

A6(1)=8813 AS(2)=081 AS(3)=68 
RETURN 

REM 2a00RVVVVAIUUARAAIVIAIVADII 
REM NOMBRE DE LA ORDEN INTRODUCIDA 
Us y 

IF X8$="L” THEN Us="ACELERAR 3" 
1F X8="." THEN US=" FRENAR 3” 
IF X8="Q" AND AL>O THEN 

Us=" SUBIR 1” 

IF X8="Q0" AND AL=0 THEN 
UsS="MORRO ARRa ” 
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2270 
2280 
2290 
2300 
2310 
2320 
2330 
LLA 


IF X8="A" THEN U$="MORRO ABJ:" 

IF X8="Z” THEN Us=" IZQUIERDA: ” 

IF X8="M"” THEN Us=" DERECHA 1” 
RETURN 

REM 000004000 004040.40 0000-20-20 00-00 00-40 00 00 00 20-00 00 06 40 EE 00 16 0606 
REM INICIALIZACION 

PRINT CHR8(147)1 REM BORRA LA PANTA 


Q6=""s FOR Nu1 TO 213 0Q8=08+CHRS (19 


3): NEXT 


TFLAG=11 REM TREN DE ATERRIZAJE 
(1=FUERA 3 O=DENTRO) 

EFLAG=0: REM ANGULO DE SUBIDA 

d=0J ANG=01 TAKEOV=01 TR=0O 

VE=03 REM VELOCIDAD DEL AIRE 

DIST=01 

REM DISTANCIA CUBIERTA (RANGO) 

AL=O 

EL=03 REM ANGULO DE ELEVACION 

AA=01 REM ANGULO DE LAS ALAS; SE 

USA PARA IMPRIMIR EL HORIZONTE. 

FUEL=7308 CRASH=0s3 F2=01 Fi=01 

REM PARA LA BRUJULA 

RELOJ=01 REM TIEMPO 

Xgm* ” 

CCe=x6 


RETURN 
RRAS=LEFTS (STRS (UV) +” 
PRINT RRS51 RETURN 


"Pda 


Programas para Apple Il 


ROBOT DE PUNTOS 


100 REM 0040 4% 0% 28 26 dd 06 20 06d 10 06 00 00 30 00 40 30 0 0 310 REM 
* * 320 DATA "*." 
* ROBOT DE PUNTOS * O A di 
* * * * 
ed DO Dd dl 0 00 04 0d 6 0 DE 0 DO 4 M6 DO 00 A 00 0 O 0 0 00 0 »* LECTURA DEL PROGRAMA * 
+ + 
105 HOME 23 HGR 34 30 dl 00 00 0 00 00 0 00 00 00 30 40 00 00 00 04 20 40 20 0 0 00 0 00 40 0 
106 HCOLOR= 7 
110 DIM A$(20): GOSUB 1160 s0c=C+*1 
120 GOTO 490 53510 READ AS(C) 
A id 520 IF AS(C) = "*" THEN GOTO S5 
140 REM Oo 
150 REM 530 IFC < 20 THEN GOTO 500 
160 REM A E ri 
170 REM » * 
180 REM * EJECUCION DEL PROGRAMA + 
190 REM * * 
200 REM iii 
210 REM 
220 REM S60 CP = O; REM 
230 REM *** CONTADOR DE PROGRAMA ses 
240 REM * 
250 REM 570 CP = CP + 1 
260 REM 580 IF CP = 21 THEN GOTO 580: REM 
270 REM 
280 REM *.. FIN seee 
290 REM 600 M$ = AS(CP) 
300 REM 610 IF M$ = "*" THEN GOTO 610: REM 
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620 N$ = LEFTS% (115,2) 

630 IF N$ = "EM" THEN GOTO 560: 
REM 

... EMPEZAR tes 

650 IF N$ = "AV" THEN FLAG = 1 

660 IF N$ = "AT" THEN FLAG = 2 

670 IF N$ = "GI" THEN FLAG = 3 

680 IF N$ = "CE" THEN FLAG = 4 

690 IF N$ = "VE" THEN FLAG = S 

700 IF N$ = "LI" THEN FLAG = 10 

710 IF N$ = "AZ" THEN FLAG = 6 

720 IF N$ = "RE" THEN FLAG = 7 

730 1F N$ = "FI" THEN FLAG = 8 

740 IF N$ = "MI" THEN FLAG = 9 

750 ON FLAG GOSUB 780,940,1000,1 
150,1260,1400,1460,1530, 1580 
,» 1220 

760 GOTO 570 

780 REM ae de 4 dh 06 4 00 dl 00d dd 06 6 M6 6 00 E dd 0 dd 
* * 
* AVANZA * 
* * 
30 dl M0 dd 0D 0 0 DO 0 Dd 6 6 

785 FS = "F" 

790 GOSUB 2000: REM COJE NUMERO 

825 NUM = NUM / 2 

830 FOR E = 1 TO NUM 

840 IF VX < O OR VX > 191 THEN GOTO 
880 

850 IF HX < O OR HX > 279 THEN GOTO 
88o 

8560 HPLOT HX,VX 

880 IF FS = "F" THEN VX = VX + Y 
E:HX = HX + HO 

890 IF FS = "B" THEN VX = VX - Y 
E:HX = HX - HO 

910 NEXT E 

920 RETURN 

E AA 
* * 
* ATRAS * 
* o 
MOI DO DO dd DO DO DE dd dE DE JE DE HE IO DE DH dE E e 

970 FS = "B" 

980 GOTO 790 

A 
e * 
+ GIRA * 
* * 
30d 14 0d dd MO M0 M0 0 DO 6 DM MIA 

1010 GOSUB 2000 

1040 Y = INT (NUM / 22.5 + .5) 

1050 ANG = ANG + Y 

1060 IF ANG > 15 THEN ANG = ANG - 
16: GOTO 1060 

1065 A = ANG * .3927 

1070 HO = SGN ( SIN (A)) * INT 
(.6 + ABS (2 * SIN (A))) 

1080 VE = - 1 * SGN ( COS (A)) «+ 

INT (.6 + ABS (2 * COS (A 

33) 

1140 RETURN 


ue FIN 1% 
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1160 


1170 
1180 
1190 
1195 
1200 
1220 


1230 
1240 
1260 


1270 
1280 
1290 
1300 
1301 


1310 
1380 
1400 


1470 
1490 
1500 
1510 
1530 


1540 
1550 
1560 
1580 


1590 


DAS 


* * 
* CENTRO * 
* * 


MODO DD DAD Dd DO dd dd A dE dE 6 DE DE IÓ dE DD HE dE 


VX = 95 
HX = 140 

VE = - 2:HO = O:ANG = O 
HPLOT HX,VX 

RETURN 

IN did 
* * 
* LIMPIA * 
* * 


MUDO dE DO dd DE dE DO DO 4 HE dd dE DE DE dE DE 16 dd dd 


HGR 

RETURN 

REM 004 d0 de 06 dd dd dl dd dd 6 00 0 00 0 
+* * 
+ VE X,Y * 
+ e 


MO dl d0 DO dd dh DO dd dd dd dd dd 04 dd dd 04 6 00 dE O 6d 


GOSUB 2000 
HX = NUM 

GOSsuB 2020 
VX = NUM 

IF Hx < 1 OR HX > 279 OR Vx 
< O OR VX > 191 THEN RETURN 


HPLOT HX,VX 


RETURN 

A db 
+» * 
* AZAR * 
* * 


ODO DO DD DDD DO E O O O DO DO dd 06d 06 dd 00 de 


HX = INT ( RND (1) * 279) 
VX = INT ( RND (1) * 191) 
HPLOT HX»VX 

RETURN 

REM sed ad 06 6 06 dd 26 26 6 06 6 6d 6 HH 0 
* * 
* REPITE * 
e * 
30 DO dl 44 0d M0 00 dl Dd DO 0 0 0 O 06D M0 A 


GOSuB 2000 

REP = NUM 

MARC = CP 

RETURN 

A AAA 
* * 
* FIN REPITE * 
* * 


MODO DO DO DO DO DO DO DO DO dE DO dd dd dd dE 6 dE 4d 0 0 


REP = REP - 1 
IF REP > O THEN CP = MARC 


RETURN 

A ide 
* * 
+ MIRA * 
+ * 


MIN DEDO DE Dd DD DE E HE ELO E ME E ME dd 


GOSsuB 2000 


1620 ANG = INT (NUM / 22.5 + .5) 2070 CS = MIDS$ (MS$,PUNT),1) 


1630 GOTO 1060 2080 IF C$ < "0" OR C$ > "9" THEN 
1635 IF Y = 22.5 THEN UP = - 2: 2200 
AC = 1 2090 GOTO 2050 
1710 RETURN 2200 NUM = VAL (NUMS$) 
2000 REM RUTINA PARA COJER ARGU 2210 RETURN 
MENTOS 3000 FOR I = 1 TO 16 
2010 PUNT = 1 3005 A = I +* 3.1416 / 8 
2020 C$ = MIDS (MS,PUNT),1) 3010 HO = = SGN ( SIN (A)) * INT 
2030 IF C$ < "0" OR CS > "9" THEN (.6 + ABS (2 * SIN (A))) 
PUNT = PUNT + 1: GOTO 2020 3020 PRINT 1" V" SGN ( COS (A)) 
2035 NUMS = "" * INT (.6 + ABS (2 * COS 
2050 NUM$ = NUMS + CS (A))) 
2060 PUNT = PUNT + 1: IF PUNT > LEN 3030 NEXT 
(MS) THEN 2200 10000 REM 


SIMULACION DE UN 
ATERRIZAJE ESPACIAL 


10 REM 64444 44 dh dt 06 d6 34 dh 06 00 06 dd E 40 00 4 46 06 6 40 :EMPUJE = O: GOTO 170 


* * 140 GET As 
* SIMULACION DE ATERRIZAJE «+ 150 IF AS < "0" OR AS > "9" THEN 
« * GOTO 140 
* ESPACIAL * 160 EMPUJE = VAL (AS) + .1 
* * 170 FUEL = FUEL - EMPUJE 
iii 180 FLAG = EMPUJE - 2 
15 HOME 206 ATINA > PETRO + VELOCIDAD + 
20 INPUT "PULSA UN NUMERO (0-9) LA CA 
sá o dl 210 VELOCIDAD = VELOCIDAD + FLAG 
30 K 220 IF ALTURA < = 10 THEN GOTO 
40 REM dese stats dl 0 06 06 00 dl 0 0 40 0 36 6 6 36 24 0 00 40 240 
+ * 
ss oe eres e 230 e ALTURA > 10 THEN GOTO 12 
* 7 240 IF VELOCIDAD > - 9 AND VELO 


tt CIDAD < S THEN GOTO 290 


50 FUEL = 200 + RND (1) * 40 250 GOSUB 410 
60 VELOCIDAD = RND (1) * 20 - 6 260 POKE 34,0 
70 ALTURA = 500 — RND (1) «* 10 261 HOME 
80 HOME 262 PRINT 2: PRINT "HAS CHOCADO C 
81 PRINT : PRINT " INTRODUCE E ON LA SUPERFICIE...":* PRINT 
L EMPUJE (0-9)" 270 IF ALTURA > O THEN ALTURA = 
82 PRINT : PRINT " O = EMPU - ALTURA 
JE MINIMO" 280 GOTO 320 
83 PRINT : PRINT " 9 = EMPU 290 POKE 34,0: HOME 
JE MAXIMO" 291 PRINT : PRINT ; PRINT : PRINT 
PRINT : PRINT  TAB( 4); "FUEL" 2 PRINT : PRINT "HAS ATERRIZ 
us ; , ADO FELIZMENTE !!!": PRINT 
91 PRINT  TAB( 15);"VELOCIDAD"; 300 PRINT : PRINT "TU PUNTUACION 
92 PRINT  TAB( 29); "ALTURA" ES DE "; INT ( - 1000 +* FUE 
93 PRINT " ada L / (VELOCIDAD - ALTURA));" 
E ES " PUNTOS." 
94 POKE 34,10 310 ALTURA = O 
935 PRINT 320 GOSUB 410 
A ii 330 PRINT : PRINT "LA ULTIMA LEC 
* * TURA DE INSTRUMENTOS ERA " 
* CICLO PRINCIPAL * 340 PRINT : PRINT — TAB( 4);"FUEL 
* * "3 
HI DD MI 341. PRINT TAB( 15);"VELOCIDAD"; 
342 PRINT TAB( 29); "ALTURA" 
120 (GOSUB 430 343 PRINT " a II SS 


130 IF FUEL < = 0 THEN FUEL = O == noo " 
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350 GOSUB 430 450 IF ALTURA > = O THEN PRINT 


360 GOSUB 410 TAB( 30); INT (100 * ALTURA 
370 IF ALTURA > = 0 THEN GOTO >) / 100 
500 460 IF ALTURA < O THEN PRINT 
380 IF ALTURA < O THEN PRINT : PRINT 470 RETURN 
"NUEVO CRATER EN LA LUNA "; INT 500 REM 463404 d dede 36 dh 16 00 34 26 06 00 6 M6 dE MI 
( ABS (100 * (ALTURA + .2) / e * 
3)) / 100;" METROS DE": PRINT + REPETIMOS * 
3 PRINT "PROFUNDIDAD !!!" + * 
390 PRINT : PRINT "TU PUNTUACION 30 de dh 30 dl dE 20 00 M6 20 dl 0d 24 30 DO 06 00 26 M0 DD 
ES DE "3 INT (100 * FUEL / 
(VELOCIDAD - ALTURA));" PUNT 505 PRINT : PRINT 
os.” 510 INPUT “QUIERES INTENTARLO OT 
400 GOTO 500 RA VEZ 2?2";FFS 
410 PRINT 2 PRINT "--=-===-==-=-=-=-- 520 IF LEFTS (FFS$,1) < > "S" AND 
A a LEFTS (FFS,1) < > "N" THEN 
420 RETURN GOTO 510 
430 PRINT *” "; INT (100 +* FUEL S30 I1F LEFTS (FFS$S,1) = "S" THEN 
> / 100; GOTO 10 
440 PRINT TAB( 18); INT ( - 100 540 END 


* VELOCIDAD) / 100; 


SIMULADOR DE VUELO 


o E AA 120 IF TIERRA = 1 AND UFLAG = O THEN 
* * PRINT : PRINT "LAS RUEDAS E 
» SIMULADOR DE VUELO + STAN SUBIDAS !!!": GOSUB 178 
* * O: GOTO 90 
30 10 20 04d DO DO 0 0 0 24 DO 20 00 20 00 00 DO 2 0 0 0 0 0 130 T = VELAIRE:MOTR = O 
140 GET xs 
20 RPT = 0 150 I1F X$ = "R" THEN RPT = 1: GOTO 
30 LD = INT ( RND (1) * 360) 70 
A AS 160 IF RPT = 1 AND ES(RELOJ + 1) 
» * = "" THEN RPT = O: GOTO 140 
*EN LA MATRIZ Es SE GUARDA + 
» * 170 IF RPT = 1 THEN X$ = ES(RELO 
* EL REGISTRO DEL VUELO * J +1) 
» * 190 IF X$ = "" THEN GOTO 140 
de 190 IF RELOJ < 999 THEN ES(RELOJ 
+ 1) = X$ 
40 DIM E$(1000) 200 IF TAKEOV = 1 THEN ELEVAC = 
45 REM LAS MATRICES As Y CS TIE INT (ELEVAC + RND (1) * 2 - 
NEN LOS DATOS DE LA BRUJULA RND (1) +* 3) 
Y EL HORIZONTE 210 IF VELAIRE < 3 THEN GOTO 29 
50 DIM A$(7),C05$(7) (o) 
aa 220 IF X$ = "Q" THEN ELEVAC = EL 
EVAC + S:EFLAG = 53 IF ELEVA 
70 GOSUB 2320: REM C > 60 THEN MOTR = 1 
230 IF X% = "A" THEN ELEVAC = EL 
*** INICIALIZACION +. EVAC - S:EFLAG = - 53 IF EL 
EVAC < - 70 THEN MOTR = -— 
80 IF CRASH = O THEN GOSUB 820: 1 
REM 240 IF MOTR < > O THEN - GOSUB 1 
*** HORIZONTE / BRUJULA sw 640 
250 1F ALTIMETRO < 1 THEN GOTO 
90 GOSUB 500: REM 290: REM 
+... PARA EVITAR $»... 
+... IMPRESION +. *** GIROS EN TIERRA eu. 
100 IF CRASH = 1 THEN END 260 IF X$ = "2" THEN WA = WA — . 
110 IF TIERRA = 1 AND UFLAG = 1 THEN S:ANG = ANG — 6: IF WA<X - 
PRINT : PRINT "ENHORABUENA 3 THEN WA = - 3 
11 UN ATERRIZAJE PERFECTO !! 270 IF X$ = "M" THEN WA = WA + . 
"3 END S:ANG = ANG + 6: IF WA > 3 THEN 
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280 


290 


300 


310 


320 


330 


340 


350 


360 


370 


380 


390 


400 


410 


420 


430 


440 


450 


460 


470 


480 


490 
500 


s10 
s20 


WA = 3 


ANG = INT (ANG + RND (1) + 

2 - RND (1) + 2) 
IF XS = " " THEN VELAIRE = V 
ELAIRE + 8.5 
IF X$ = "." THEN VELAIRE = V 
ELAIRE - 7 

VELAIRE = VELAIRE - ELEVAC / 
El 
IF UFLAG = 1 THEN VELAIRE = 
VELAIRE - 1.S:FUEL = FUEL - 
.5 
IF VELAIRE < O THEN VELAIRE = 
lo] 
IF VELAIRE > 400 THEN VELAIR 
E = 400 
IF X$ = "1" AND UFLAG = O THEN 
UFLAG = 1: GOTO 370 
IF XS = "1” AND UFLAG = 1 THEN 
UFLAG = O 

FUEL = FUEL - ( ABS (T - VELA 


IRE) / 10) - 3.75 
IF FUEL < 1 THEN GOSUB 1780 


IF TAKEOV = 1 THEN GOTO 420 


IF ELEVAC > 10 AND VELAIRE > 
45 AND VELAIRE < 60 AND UFLA 
G = 1 THEN TAKEOV = 1 
IF TAKEOV = O THEN ALTIMETRO 
= 03 GOTO 450 
IF TIERRA = O AND VELAIRE < 
30 THEN ELEVAC = ELEVAC - S: 
ALTIMETRO = 9 * ALTIMETRO / 
10 
ALTIMETRO = ALTIMETRO + INT 
(((ELEVAC + .1) * VELAIRE) + 
EFLAG + VELAIRE / 1000) / 80 


IF ALTIMETRO < 300 AND TAKEO 
V om 1 THEN ALTIMETRO = ALTIM 
ETRO + VELAIRE / 30 + ELEVAC 


IF ALTIMETRO < O THEN  GOSUB 
1780: REM 
».. CRASH +... 


REM aea0 a ad dl 00 00 00 00 0 00 00 0 0 0 00 0 0 0 0 
* * 
*LAS DOS LINEAS SIGUIENTES,» 
* CONTROLAN LA DIFICULTAD + 
» DEL ATERRIZAJE * 
» » 
3000 00 00 QQ 0 40 DO 00 0 0 00 0 0 DO 0 0 0 0 0 


IF ALTIMETRO > 15 AND VELAIR 


E > 20.0R TAKEOV = O THEN GOTO 


eo 


IF ABS (ANG - LD) < 13 OR ABS 


(ANG + 360 - LD) < 13 THEN T 


IERRA = 1 

GOTO 80 

REM aed6 0 dh 26 04 26 0 26 0 0D 0 0 0 0 
* * 
» IMPRESION * 
* * 


30 34 10 dh dh dh 0 10 00 00 00 3 20d 00 10 00 00 10 10 30 10 0 40 de de 44 de 


HOME 


PRINT " HORIZONTE";: PRINT 


530 
540 
550 
560 
570 


seo 
590 


600 
610 
620 
630 
640 
630 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 


770 


780 


790 


800 
ezo 
830 
840 
eso 
860 


870 


TAB( 19);"BRUJULA” 


EV = INT (ELEVAC / 10) 
IF EV > 2 THEN EV = 2 
IFEV<X - 2 THEN EV= - 2 
IF EV< > 0 AND TAKEOV = 1 AND 
CRASH = O THEN GOSUB 192 
PRINT  * 3 ========0- === y 
Ls e E” 
FOR J = 1 TO 7 
PRINT "3 "¿AsS(J)53" :"5C$(J); 
. qe 
As) = "" 
NEXT J 
A 
DIST = DIST + ABS (( COS (EL 


EVAC)) + VELAIRE) / 360 
RELOJ = RELOJ + 1 


PRINT "¿RANGO "3 INT (DIST «+ 
10) / 103"3 TIEMPO "; INT (R 
ELOJ)> / 10;":3 "¿LD 

A 
a ” 

PRINT "3 VEL.AIRE 3 "35 INT (V 
ELAIRE) 

PRINT "2"3 LEFTS (Q8, INT (Y 
ELAIRE / 20 + 1));">" 

PRINT "¿ALTIMETRO 3 "3 INT ( 
ALTIMETRO) ; 

IF ANG < O THEN PRINT  TAB( 
19);360 + ANG;" GRAD."” 

IF ANG > = 0 THEN PRINT TAB( 
19);ANG;" GRAD." 

MR = INT (ALTIMETRO / 30): IF 

MR > 20 THEN MR = 20 

PRINT "23 LEFTS (QS,MR + 1) 
qu” 

PRINT ": FUEL 2 "5; INT (FUEL) 
PRINT "3"3 LEFTS (Q6,20 - INT 
(FUEL / 750))3">" 

PRINT "oo ———— === 
e e e e 3” 

PRINT ":ELEVACION : ";ELEVAC 
3": "33 GOSUB 2210: PRINT US 
IF UFLAG = 1 THEN PRINT : PRINT 
"> TREN DE ATERRIZAJE FUERA 

< 

IF UFLAG = O THEN PRINT : PRINT 
"> TREN DE ATERRIZAJE ARRIBA 
RETURN 

REM HORIZONTE / BRUJULA 

IF ABS ( INT (WA + .5)) = 3 
THEN GOSUB 980 

IF ABS ( INT (WA + .5)) = 2 
THEN GOSUB 1070 

IF ABS ( INT (WA + .5)) = 1 
THEN GOSUB 1160 

IF — INT (WA + .5) = O THEN —GOSUB 
1250 ? 

A it 


* 


*LAS DOS LINEAS SIGUIENTES 


* 
+ 
+ 


SE USAN PARA ENDEREZAR 
GRADUALMENTE LAS ALAS 


E 


SEDA DO DAD HD DO DO DD DE 0 6 DO DE II DE IED 
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880 IF WA > O THEN WA = WA - .e 
890 IF WA < O THEN WA = WA + .2 
900 IF WA > .2 THEN GOTO 1350 
910 FOR 2 = 1 TO 7 
920 M$(8 - 2) = AS(Z2) 
930 NEXT 2 
940 FOR 2 = 1 TO 7 
950 AS(2Z) = MS(2) 
960 NEXT 2 
970 GOTO 1350 
BO REM dde stat de dt de 16 6d 6 dl dd 6d MAH MEA 
+ * 
+ ANGULO DE ALAS * 
* - + 
* 3.0 -3 * 
* * 
M0 0 dd dE MR 000 dd DA 0 0 AMM III 
990 AS(1) = " 440 
1000 AS$(2) = " .. 0" 
1010 AS(3) = " +. “ 
1020 AS(4) = " e. E 
1030 AS(35) = " +. “ 
1040 AS(6) = " 4. » 
1050 AS(7) = "su. " 
1060 RETURN 
1070 REM 1046 d4 46 d6 d4 06 4 06 db 04 06 db 26 2d dl 06 00 06 06 06 de 
* * 
* ANGULO DE ALAS * 
* = + 
+ 2 O -2 * 
* * 
dd 
1080 AS$S(1) = " s“ 
1090 A$S(2) = " dese 
1100 A$S(3) = " ee. " 
1110 A$(4) = " e... » 
1120 AS(5) = "  se.tm “ 
1130 AS(6) = "su. “ 
1140 AS(7) = " se 
1150 RETURN 
1160 REM 363634 06 46 dl 26 d6 6 dd dd dl 06 00 06 dd 6 de 
+ * 
* ANGULO DE ALAS * 
+ = + 
+ 1.0 -1 * 
* * 
0d DD MH 0 0d A dE ME 0 0d DEM 0 00H 
1170 A$(1) = " " 
1180 A$(2) = " sé 
1190 AS(3) = " A 
1200 A$S(4) = " III " 
1210 AS(S) = "seems. “ 
1220 AS$(6) = " se 
1230 A$(7) = " " 
1240 RETURN 
A 
* * 
* ANGULO DE ALAS + 
* * 
* IGUAL A O * 
* * 
OIDO MEM IA 
1260 A$(1) = " s 
1270 A$(2) = " e 
1280 A$(3) = " ” 
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1290 
1300 
1310 
1320 
1330 
1340 


1350 


1360 
1370 


1380 
1390 
1400 
1410 
1420 
1430 


1440 
1450 


1460 


1470 
1480 


1490 


1500 
1510 


1520 


1530 
1540 


1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 


1630 
1640 


1650 


16560 
1670 


1680 


AB(G) 2 "erre II 
as (5) = " ” 
A$S(6) = 

AsS(7) = " “ 
RETURN 

IN AA 


REM ASIGNACION DE DATOS A 
LA BRUJULA 

F2 = ANG - Fi 

IF F2 < O THEN FA = INT (( 
F2 + 375) / 30) 

IF F2 > = 0 THEN FA = INT 
((F2 + 15) / 30) 

IF FA = 12 THEN FA = O 
CS(1) = “ «NN. " 

IF FA = 11 THEN C$(2) = " 
.«d3.. ": GOTO 1450 

IF FA = O THEN C$(2) = " , 
.d.. ": GOTO 1450 

IF FA = 1 THEN C$(2) = " , 
.310. ": GOTO 1450 


C6(2) = " ,.t.. ” 
IF FA = 10 THEN C$(39) =" , 
9: ..": GOTO 1480 


IF FA = 2 THEN C$(3) = "., 
1 9.":3 GOTO 1480 
CH) =="... t.." 
IF FA = 9 THEN C$(4) = " 09 
=X--E"s GOTO 1510 
IF FA = 3 THEN C$(4) = " O- 
-X-2E": GOTO 1510 
CS(4) = " O--X--E" 
IF FA = 8 THEN C$(5) = " .2 
1 ..”: GOTO 1540 
IF FA = 4 THEN C$(5) = ".. 
3 9.": GOTO 1540 
CSS) 2 ".. 3..." 
IF FA = 7 THEN CS(6) = " , 
91... ": GOTO 1580 
IF FA = 6 THEN C$(6) = " , 
.d.. "s GOTO 1580 
IF FA = 5 THEN CS(6) =" , 
.1%. ": GOTO 1580 
CS(6) = " 
C5(7) = " .S. ” 
IF ANG > 360 THEN ANG = ANG 
- 360 
F2 = ANG 
IF W > O THEN W = W- .4 
IF W < O THEN W = Y + .4 
RETURN 
REM 960630 0 e de 06 06 de 06 00 16 46 06 06 6 46 36 30 16 dd 


EL MOTOR FALLA 


CAES 


Xxx” 
K o oo 


30D 00 00 0 DE 0D DDD 0 06 00 0 00d DE 0 6 MA 
IF MOTR = - 1 THEN GOTO 1 
710 

FOR J = 1 TO 10 

PRINT — TAB( J);"EL MOTOR SE 
HA PARADO!” 

NEXT J 


1590 
1700 
1710 
1720 


1730 


1740 
1750 


1760 
1770 


1780 


1790 
1800 
1810 


1820 
1830 
1840 


1850 
1860 
1870 
1880 
1890 
1900 
1920 


1930 


1940 


1950 
1960 


1970 
1980 
1990 
2000 


2010 
2020 


2030 
2040 


VELAIRE = VELAIRE / 4 

RETURN 

FOR J = 1 TO 10 

PRINT — TAB( J);"CAES EN PIC 
ADO !!t!" 

PRINT— TAB( 21 -— J);"LEVANT 
A EL MORRO !!!" 

NEXT J 
ALTIMETRO = 4 * ALTIMETRO / 
Ss 

RETURN 

IN A 


REM 36D DO dd DO dd dE Ed dE E M6 dE 6 6 dd 


* * 
* CRASH * 
* * 


JODE IDE DI DO DD dE E dE DH DE HO dE DH DE HE IE 


CRASH = 1 
ALTIMETRO = O 
MS = "eu “CC Ras 
11": REM 
*.. 25 CARACTERES 0... 

FOR J = 1 TO 20 

PRINT — TAB( J);"CRASH!" 

PRINT — TAB( 21 - J);"CRASH! 


A *. Se Ha 


NEXT J 
FOR J = 1 TO 7 
G= INT ( RND (1) +* 11) + 1 


AS(J) = MID$ (M$,G,14) 

NEXT J 

RETURN 

A 
* * 
* AJUSTE DEL HORIZONTE * 
* * 


Med DO 00 0 00 00 00 DE DO 00 O DO DO 0 0 00 40 dd 40 40 dE 00 44 0 6 


Gs = " “3 REM 
... 14 ESPACIOS +e..u 


ON EV + 3 GOSUB 1960,2020,2 
070,2080,2140 

RETURN 

CA die 


GRADIENTE DE ELEVACION 


IGUAL -2 


xxx yx 


* 
* 
* 
* 
* 
30 DO do 00 00 DO 00 04 O 00 00 0 0 00 00 00 0D 00 DE 00 dd 0 dd dE de 


FOR J = 1 TO 4 
AS(J) = AS(J + 3) 

NEXT J 
AS(5) = GS:A$(6) = G$:A$(7) = 
Gs 

RETURN 

TA iii 


GRADIENTE DE ELEVACION 


Ro o oe 


* 
* 
» 
* IGUAL == 
* 
30 10 10 06d 00 00 26 0 DO 00 0 40 0 00 00 0 DO 0 0D 0 0 HEM 


FOR J = 1 TO 6 
AS(J) = AS(J + 1) 


2050 
2060 
2070 


2080 


2090 
2100 
2110 
2120 
2130 
2140 


2150 
2160 
2170 
2180 


2190 


2200 
e2z10 


2330 
2340 


2345 


NEXT J 
AS(7) = Gs 
RETURN : REM 
uo EVO 41. 
A dd 


GRADIENTE DE ELEVACION 


IGUAL 1 


$ (XI 
* kx kx 


30 00 30 DO d4 4 DO 0 DA DO dE 0 04 0 00 06 6 DE DO DE DO 06 0 00 46 06 36 6 


FOR J = 6 TO 1 STEP. - 1 
AS(J + 1) = AS(J) 

NEXT J 
AS(1) = Gs 

RETURN 

REM 40034 00 00 30 de 00 dh 00 dl dd 00 0d 30 0 0 dde 
* * 
* GRADIENTE DE ELEVACION «+ 
* * 
* IGUAL e * 
* * 
IO DO 0 0 0 00 00 0 0 0 A 00 00 0 DO HE 0 00 0 Hd 

FOR J = 4 TO 1 STEP. - 1 
AS(J + 3) = AS(J) 

NEXT J 
AS(1) = GS:A$(2) = GS:A$(3) = 


Gs 

RETURN 

REM dea 0 30 d4 06 26 36 40 30 00d M0 00 00 00 dE 46 0 6 40 
REM 00000404 06 00 00 20 0 00 0 06 06 20 dE 0 0 0 00 6 dd 


* 

CAMBIA LETRA DE COMANDO + 
A PALABRA COMPLETA * 

* 

0D 0 0 0 0 0 0 0D 0 0 0 0 00 0 00 0 0 DE 


xs 3% 


UE ida . 
IF OXS = " o" THEN U$ = "ACEL 
ERAR” 

IF OXS = "." THEN US = " FRE 


NAR " 


IF X$ = "Q" AND ALTIMETRO > 
O THEN US = "SUBIR" 

IF XS = "Q”" AND ALTIMETRO = 
O THEN US = "MORRO ARRIBA" 

IF XS8 = "A" THEN US = "MORR 
O ABAJO" 

IF XS = "2" THEN U$S = "IZQU 
IERDA" 

IF XS = "M" THEN U$ = "DERE 
CHA" 

RETURN 

REM 0406 dd 26 00 6 M6 6 E 

O A 
* * 
* INICIALIZACION * 
* * 
TODO M0 M0 DOMO DD DO 0 IIA 
HOME 

INPUT "PULSA UN NUMERO -> " 
¡FF 
FR = RND (FF): REM 


e* ESTA LINEA Y LA ANTERIOR 
INICIALIZAN EL GENERADOR DE 
ALEATORIOS 
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2350 


2360 


2370 


2380 
2381 
2382 
2390 
2400 


2 REM 
«“... 21 CARACTERES +... 


UFLAG = 1: REM 


4. TREN DE ATERRIZAJE «.. 
+... 1-FUERA O-DENTRO us 


EFLAG = O: REM 
«sn. ANGULO DE SUBIDA ww 


ANG = O 
TAKEOV = O 
TIERRA = O 
VELAIRE = O 
DIST = Oz REM 


«.* DISTANCIA CUBIERTA su. 
e... ” RANGO” e. 
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2410 
2420 


2430 


2440 
2441 
2442 


2450 


2460 
2470 


ALTIMETRO = O 
ELEVAC = O: REM 


«+ ANGULO DE ELEVACION us. 
WA = Os REM 


«sw "ANGULO ALAS SE USA *ux 
.n PARA IMPRIMIR EL. «.. 


e HORIZONTE ... 
FUEL = 750 
CRASH = O 


F1 = 0:3F2 = O: REM _ PARA LA 
RUTINA DE DIRECCION/BRUJULA 
RELOJ = O: REM 


«.. TIEMPO e... 


x6 = 
RETURN 


Reconocimientos 


El ciclo del oxígeno (capítulo 2) está basado en información extraída del 
libro The last gasp, de Hoyle, Sphere Books Ltd., Londres, 1983. 

Los detalles del Mind Monitor y del simulador de una planta energética 
(capítulo 1) son del periódico The Australian, del día 29 de febrero de 1985. 

La información utilizada para crear el programa SIMULADOR DE VUELO 
(capítulo 23) proviene de: 


Birch, N. H., y Bramson, A. E., Flight Briefing for Pilots, Pitman Publishing, 
Londres, 1970. 

Champion, P., Glider Pilot, Model and Allied. Publications Ltd., Hemel Hems- 
tead, 1974, 

Flying Magazine (eds.), Flying Wisdon, Van Nostrand Reinhold Company, 
Nueva York, 1979. 


El material usado en los programas simuladores del Robot (capítulos 7, 8 
y 9) se pueden encontrar en: 


Bonner, P., “Build Your Own Gladiator”, en Personal Software, diciembre de 
1983, págs. 123, 127 y 198. 


Autores de los programas 


ATERRIZAJE ESPACIAL.—Tim Hartnell. 

MONTE CARLO.—Tim Hartnell. 

ECUACIONES SIMULTANEAS.—Tim Hartnell. 
VIDA.—Tim Hartnell. 

ROBOT LOGO y ROBOT DE PUNTOS.—Tim Hartnell. 
CONECTA CUATRO. —Anthony W. Pearson. 
MAQUINA DE AJEDREZ DE QUEVEDO.—Tim Hartnell. 
WASHINGTON D.C.—Philip J. Coates. 

MERCADO DE VALORES.—Philip J. Coates. 

DETROIT CITY —Philip J. Coates. 

GRIDIRON.—Philip J. Coates. 

TENIS.—Philip J. Coates. 

GRAND PRIX.—Philip J. Coates. 

SIMULADOR DE VUELO.—Tim Hartnell. 
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¡Las simulaciones te dan poder! El poder de practicar casi cualquier 
actividad que puedas imaginar. Dirigir una empresa multimillonaria, 
volar a la Luna, conducir un fórmula o pilotar un caza. Todas estas 
experiencias pueden ser tuyas a través de tu ordenador. 


SIMULACIONES. REPLICA LA REALIDAD CON TU ORDENADOR te da 
la capacidad de imitar la realidad de una forma bastante aproximada; 
en él encontrarás programas que te permitirán tomar parte en todo 
tipo de escenarios. Pero hay algo más que programas en este libro. El 
estudio de los listados y la observación de la forma en la que actúan 
las variables y fórmulas te descubrirá las técnicas de análisis de 
situaciones reales y la teoría de Simulaciones. 


Con SIMULACIONES. REPLICA LA REALIDAD CON TU ORDENADOR 
te introducirás en la fascinante ciencia y arte de crear simulaciones, es 
decir, de evaluar los factores que controlan un suceso y preparar las 
fórmulas para que el resultado sea realista y permita explorar 
certeramente el comportamiento del sistema simulado. 


Con sólo saber un poco de BASIC y tener cualquiera de los cinco 
ordenadores para los que están preparados los programas á 
(SPECTRUM, AMSTRAD, MSX, COMMODORE 64/128, APPLE ll), od 
podrás desarrollar simulaciones extraordinariamente efectivas: 


Simulador de aterrizaje espacial.—Simulador de ROBOT y de tortuga 

LOGO.—Simuladores de inteligencia: cuatro en raya, ajedrez.— 

Simulaciones politicoeconómicas: control de inflación, desempleo, gasto 

público, mercado de valores, control de una compañía de automóviles.— 

Simulación de deportes: rugby, tenis.—Simulador de Fórmula 1.— y y 
SIMULADOR DE VUELO. d Ea 


¡Adéntrate con Tim Hartnell en el mundo de las SIMULACIONES! 


Incluye listados para SPECTRUM, AMSTRAD, MSX, COMMODORE y APPLE ll. 


EAocr 


PE 
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